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PAGE 


1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 
13 


TITLE "DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80' 

LIST X 


;CHANGED FOR SYSTEM RESET — DUPFLG 
; ADDED INTERRUPT ROUTINES FROM SIO — KB 
;ADDED SAVE/RESTORE OF DOSINI VECTOR — KB 

; ***********************^********^****^^##########-*(.#-}i-###########^.#^.*#^.*^ 

; THIS IS FINAL VERSION OF DUP -2. OS- 


FILENAME = D0S2.DUP20S ON TANDEM 




LINE 

ADDR 

15 


16 


17 


18 


19 


20 

E456 

21 

E4 53 

22 

E45C 

23 

E45F 

24 

E462 

25 

E46E 

26 

02E5 

27 

0011 

28 

OOOA 

29 

OOOC 

30 

0008 

31 

0052 

32 

0053 

33 

BFFA 

34 

020A 

35 

02E7 

36 

02BE 

37 

02E2 

38 

02E0 

39 

0020 

40 

0021 

41 

0024 

42 

0025 

' 43 

002E 

44 

0021 

45 

031A 

46 

1700 

47 

0700 

48 

07E0 

49 

1540 

50 

E474 

51 

0772 

52 

021C 

53 

022A 

54 


55 

009B 

56 

0010 

57 

00 ID 

58 

00 IE 

59 

00 IF 

60 

009C 

61 

0Q7D 

62 

0088 

63 


64 


65 

0003 

66 

OOOC 

67 

OOOB 

68 

0007 


DISK UTILITY PROGRAMS (DUP) 
. PAGE 
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EQUATES **** 

CIO 


$E456 

DKHND 

= 

$E453 

SETVBV 


$E45C 

SYSVBV 

= 

$E45F 

XITVBV 


$E462 

CIOINV 


$E46E 

MEMTOP 

= 

$2E5 

BRKKEY 

= 

$11 

DOSVEC 

~ 

$A 

DOSINI 


$C 

WARMST 

= 

8 

LMARGN 


$52 

RMARGN 


$53 

CARTST 


$BFFA 

INTRVEC 


$2QA 

MENLO 

* 

$2E7 

SHFLOK 

= 

$2BE 

INITAD 

s= 

$2E2 

RUNAD 

* 

$2E0 

ICHIDZ 

= 

$20 

ICDNOZ 

s= 

$21 

ICBALZ 

~ 

$24 

ICBAHZ 

- 

$25 

ICIDNO 

= 

$2E 

MAXDEV 

= 

$21 

HATABS 


$31A 

USRDOS 

= 

$1700 

FMS 

= 

$700 

FMINIT 

= 

FMS+$E0 

DOS 

= 

FMS+$E40 

WRMSTR 

= 

$E474 

BSI OR 

= 

$772 

CDTMV3 

= 

$21C 

CDTMF3 

= 

$22A 

/ 

CR 


$9B 

CUP 

* 

$1C 

CDN 

S= 

$1D 

CLF 

= 

$1E 

CRT 

=5 

$1F 

DLL 

SB 

$9C 

CLSCR 

as 

$7D 

EOF 

sr 

$88 


OPEN 

$03 

CLOSE 

$0C 

PUTCHR = 

$0B 

GETCHR = 

$07 


VER 2.9 11/18/80 


PAGE 


2 


; DOS INIT VECTOR 


: INTERRUPT VECTOR LOC FOR SIO PATCH 


WARM START VECTOR 

ENTRY POINT TO FMS DISK HANDLER USED BY 

ADDRESS OF SYSTEM TIMER # 3 

ADDRESS OF SYS TIMER # 3 TIME OUT FLAG 


< ENDFILE RETURN CODE FROM CIO 



DISK UTILITY PROGRAMS <DUP> VER 2.9 


11/18/80 


PAGE 


3 
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69 

0005 

70 

0009 

71 

0020 

72 

0021 

73 

OOFE 

74 

0023 

75 

0024 

76 

0053 

77 


78 

0010 

79 


80 

02EA 

81 


82 


83 

0300 

84 

0301 

85 

0302 

86 

0303 

87 

0304 

88 

0305 

89 

030A 

90 

030B 

91 


92 

0340 

93 

0340 

94 

0341 

95 

0342 

96 

0343 

97 

0344 

98 

0345 

99 

0348 

100 

0349 

101 

034A 

102 

034B 

103 


104 

0000 

105 

0008 

106 

oooc 

107 


108 


109 


110 


111 



GETREC 

= 

$05 



PUTREC 

a 

$09 



RENAME 

- 

$20 



DELETE 

= 

$21 



FORMAT 

= 

$FE 



LOCK 

m 

$23 



UNLOCK 

= 

$24 



STAREG 

J 

= 

$53 i STATUS COMMAND TO 

DISK 

CONTROLLER 

IOCBl 


$10 



f 

DVSTAT 

= 

$2EA iADDRESS OF STATUS 

INFO 

STORED BY i 

i 

DCB 

_ 

$300 



DUN IT 

~ 

DCB+1 



DCOMND 

- 

DCB+2 



DSTATS 

= 

DCB+3 



DBUFLO 

- 

DCB+4 



DBUFHI 

= 

DCB + 5 



DSLO 

= 

DCB+$A 



DSHI 


DCB+$B 



i 

IOCB 

= 

$340 



ICHID 

m 

IOCE+O 



ICDNO 

= 

IOCB+1 



ICCOM 

= 

IOCB+2 



ICSTA 

= 

IOCB+3 



ICBAL 

= 

IOCB+4 



ICBAH 

= 

IOCB+5 



ICBLL 


IQCB+8 



ICBLH 


IOCB+9 



ICAX1 

= 

I0CB + 10 



ICAX2 

t 

SYSED 


IOCB+11 



— 

$0 



OWRIT 

= 

$08 



ORDWRT 

— 

$0C 



J 

HILO 

.MACRO 

PI 



Pl&H 

- 

P1&/256 



P l&L 

— 

< “256) #&P 1&H+&P 1 




. ENDM 
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112 

113 

114 

115 

116 

117 0018 

US 001A 
119 001A 


. PAGE 

**** ZERO PAGE VARIABLES **** 


*« $18 

JMPTBL: . RES 2 

RAMLO: . RES 2 

BUFADR *= RAMLO J SAVE AREA FOR BUFFER ADDRESS USED BY US 




LINE 
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B1 

B2 

B3 B4 
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120 





. PAGE 



121 





> **** INIT 

CODE FOR DUP **** 


122 





j 



123 





i 



124 





i INITIALIZATION CODE FOR 

DUP - CALLS FMS INIT CODE. 

125 





; CALLED 

ON WARM START AND 

COLD START. 

126 





f 



127 





* = 

DOS 


128 

1540 

A9 

00 


LDA 

#0 


129 

1542 

8D 

9E 

15 

STA 

OPT 


130 

1545 

A9 

9F 


LDA 

#. LOW. MNDUPL 


131 

1547 

85 

OA 


STA 

DOSVEC 


132 

1549 

A9 

17 


LDA 

#.LOW. MNDUPH 


133 

154B 

85 

OB 


STA 

DOSVEC+1 


134 

1 54D 

A9 

23 


LDA 

#. LOW. ISRSIR 

SET UP INTERRUPT VECTORS FOR SIO PATCH. 

135 

1 54F 

8D 

OA 

02 

STA 

INTRVEC 

INSTEAD OF USING THE SERIAL INPUT READY 

136 

1552 

A9 

1A 


LDA 

#. HIGH. ISRSIR 

SERVICE ROUTINE AND THE SERIAL OUTPUT 

137 

1554 

8D 

OB 

02 

STA 

INTRVEC+1 

INTERRUPT SERVICE ROUTINE IN THE OS ROM 

138 

1 557 

A9 

E6 


LDA 

#. LOW. ISRODN 

USE THE VERSIONS IN RAM FOLLOWING THE 

139 

1559 

8D 

00 

02 

STA 

INTRVEC+2 

RESIDENT PORTION OF DUP 

140 

1550 

A9 

19 


LDA 

#. HIGH. ISRODN 


141 

1 55E 

8D 

OD 

02 

STA 

INTRVEC+3 


142 

1561 

20 

EO 

07 

JSR 

FMINIT 


143 

1564 

A5 

08 


LDA 

WARMST 

ON COLDSTART, LOAD AUTORUN SYS 

144 

1566 

DO 

15 


BNE 

CKMDOS 

WARMSTART CHECK IF DUP WAS RUNNING 

145 

1568 

A9 

00 


LDA 

#. LOW. AFL 


146 

1 56A 

8D 

54 

03 

STA 

ICBAL+tlO 


147 

1 56D 

A9 

17 


LDA 

#. LOW. AFH 


148 

1 56F 

8D 

55 

03 

STA 

ICBAH+*10 


149 

1572 

20 

93 

15 

JSR 

INITX 

: CLEAR DUPFLG SHOW DUP NOT IN MEMORY. 

150 

1575 

A9 

CO 


LDA 

#*C0 


151 

1577 

20 

A6 

15 

JSR 

STLOAD 

’ LOAD. INIT AND RUN THE AUTORUN FILE 

152 

153 

1 57A 

4C 

AA 

19 

JMP 

CLOSX iMAKE SURE IOCB #1 IS CLOSED & RETURN 

154 

1 57D 

AD 

9D 

15 

CKMDOS LDA 

DUPFLG 

SEE IF DUP WAS IN MEMORY 

1 55 
156 

1 580 

FO 

11 


BEG 

INITX 

=ZERO THEN WASN'T 

157 

1582 

AD 

9E 

17 

LDA 

MEMFLG 

SEE IF USER AREA WRITTEN TO MEM.SAV 

158 

1 585 

FO 

12 


BEG 

CLDSET 

=ZERO THEN WASN'T 

159 

160 

1587 

20 

3F 

19 

JSR 

LDMEM1 

ELSE GET USER MEMORY BACK IN 

161 

1 58A 

20 

2E 

19 

JSR 

RELDIN 

RELOAD SAVED DOSINI VECTOR 

162 

1 58D 

20 

93 

15 

JSR 

INITX 

CLEAR DUP IN MEMORY FLAG 

163 

164 

1590 

20 

74 

E4 

JSR 

WRMSTR 

REDO WARMSTART 

165 

1593 

A9 

00 


/ 

INITX LDA 

#0 ; 

SAY DUP NOT IN MEMORY 

166 

1595 

8D 

9D 

15 

STA 

DUPFLG i 

CLEAR FLAG 

167 

1598 

60 



RTS 



168 





i 



169 

1599 

85 

08 


CLDSET STA 

WARMST 

NO VALID USER MEMORY 

170 

159B 

FO 

F6 


BEG 

INITX i SET TO COLD START 
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B2 
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171 






PAGE 




172 





j 

LOADER ROUTINE **** 



173 





j 





174 





; 





175 





) 

LOADS 

FROM THE FILE (MUST EE LOAD FORMAT) 


176 





> 

INTO MEMORY. RETURNS: 



177 





J 

X-0 

LOAD OK 



178 





t 

X = 1 

OPEN ERRORS Y=CIQ 

CODE 


179 





; 

X=2 

READ ERRORS Y=CIQ 

CODE 


180 





> 

X-3 

BAD LOAD FILE 



181 





j 

ON ENTRY, IOCB 1 POINTS 

TO FILENAME. 


182 










183 

1 59D 

00 



DUPFLG 

. BYTE 

0 

> FLAG -IF DUP IN MEMORY NOT 

ZERO 

184 

1 59E 

00 



OPT 

. BYTE 

0 

»HOLDS VALUE OF OPTION GIVEN BY USER 

185 

159F 

00 



LOADFG 

BYTE 

0 

iFLAG = $80 IF MEMORY FILE 

DOESN'T HAVE 

186 

15A0 




HDBUF: 

. RES 

4 



187 

1 5A4 





HILO 

HDBUF 



188 

0015 




+HDBUFH 

- 

HDBUF/256 



189 

00A0 




+HDBUFL 

= 

<-256)*HDBUFH+HDBUF 


190 

1 5A4 









191 

1 5A4 

A9 

80 


SFLOAD 

LDA 

#$80 



192 

1 5A6 

8D 

9F 

15 

STLOAD 

STA 

LOADFG 



193 

1 5A9 

A9 

47 


LOAD 

LDA 

#. LOW. RTS 



194 

1 SAB 

8D 

EO 

02 


STA 

RUNAD 



195 

15AE 

A9 

16 



LDA 

#. HIGH. RTS 



196 

1 5B0 

8D 

El 

02 


STA 

RUNAD+1 

;MAKE RUN AT EOF DEFAULT TO 

RTS 

197 

15B3 

A2 

10 



LDX 

#$10 



198 

1 5B5 

A9 

03 



LDA 

#QPEN 



199 

1 5137 

9D 

42 

03 


STA 

ICCQM, X 



200 

1 5BA 

A9 

04 



LDA 

#4 

,OPEN TYPE=INPUT 


201 

1 5BC 

90 

4A 

03 


STA 

ICAX1,X 



202 

1 5BF 

20 

56 

E4 


JSR 

CIO 

;TRY TO OPEN FILE 


203 

1 5C2 

10 

04 



BPL 

RDLF 

;CONT IF OK 


204 

1 5C4 

A9 

01 



LDA 

#1 

j OPEN ERRORS 


205 

1 5C6 

DO 

7E 



BNE 

CLFX 

;CLOSE AND EXIT 


206 

1 5C8 

A2 

10 


RDLF 

LDX 

#$10 



207 

1 5CA 

A9 

F4 



LDA 

#. LOW. DBUFL 



208 

1 5CC 

90 

44 

03 


STA 

ICBAL,X 



209 

1 5CF 

A9 

ID 



LDA 

#. LOW. DBUFH 



210 

1 5D1 

90 

45 

03 


STA 

ICBAH,X 



21 1 

1 5D4 

A9 

02 



LDA 

#2 



212 

1 5D6 

90 

48 

03 


STA 

ICBLL,X 



213 

1 5D9 

A9 

00 



LDA 

#0 



214 

15DB 

90 

49 

03 


STA 

ICBLH,X 



215 

15DE 

8D 

OB 

17 


STA 

MEMLDD 

I CLEAR MEM. SAV LOADED FLAG 


216 

1 5E1 

A9 

07 



LDA 

#GETCHR 



217 

1 5E3 

90 

42 

03 


STA 

ICCQM,X 



218 

15E6 

20 

56 

E4 


JSR 

CIO 



219 

15E9 

30 

64 



BMI 

ERST 

;IF ERRS 


220 

1 5EB 

A9 

FF 



LDA 

#$FF 



221 

1 5ED 

CD 

F4 

ID 


CMP 

DBUF 

)CHECK FOR VALID LOAD FILE 


222 

15F0 

DO 

56 



BNE 

LNLF 



223 

15F2 

CD 

F5 

ID 


CMP 

DBUF+1 



224 

15F5 

DO 

51 



BNE 

LNLF 

;BRANCH IF NOT A LOAD FILE 
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225 

1 5F7 

A2 

10 


226 

15F9 

A9 

AO 


227 

1 5FE 

90 

44 

03 

228 

15FE 

A9 

15 


229 

1600 

90 

45 

03 

230 

1603 

A9 

04 


231 

1605 

90 

48 

03 

232 

1608 

A9 

00 


233 

160A 

90 

49 

03 

234 

1600 

20 

56 

E4 

235 

1610 

10 

46 


236 

1612 

CO 

88 


237 

1614 

DO 

39 


238 





239 





240 





241 

1616 

20 

AA 

19 

242 

1619 

2C 

9E 

15 

243 

161C 

30 

03 


244 

161E 

20 

08 

17 

245 

1621 

A9 

00 


246 

1623 

2C 

9F 

15 

247 

1626 

80 

9F 

15 

248 

1629 

30 

IB 


249 

162B 

20 

73 

18 

250 

162E 

30 

05 


251 

1630 

68 



252 

1631 

68 



253 

1632 

4C 

B8 

17 

254 





255 





256 





257 





258 

1635 

AD 

90 

15 

259 

1638 

00 

OA 


260 

163A 

A9 

IB 


261 

163C 

A2 

17 


262 

163E 

20 

BE 

19 

263 

1641 

4C 

01 

18 

264 





265 





266 





267 

1644 

A9 

00 


268 

1646 

AA 



269 

1647 

60 



270 





271 





272 





273 

1648 

20 

AA 

19 

274 

164E 

A9 

03 


275 

1640 

DO 

F7 


276 

164F 

98 



277 

1650 

48 



278 

1651 

20 

AA 

19 


RDDRC 

LDX 

#*10 



LDA 

#. LOW. HDBUFL 



STA 

ICBAL, X 



LDA 

#. LOW. HDEUFH 



STA 

ICBAH, X 



LDA 

#4 


RDDRC1 

STA 

ICELL, X 



LDA 

#0 



STA 

ICBLH, X 



JSR 

CIO 

;NO ERROR CHECK SO CAN CATCH EOF 


BPL 

STOK 

,IF NO ERROR 


CP Y 

#*88 

> SEE IF EOF 


BNE 

ERST 

iIF SOME ERROR STATUS 

► EOF SO 

DONE, 

EXIT 



JSR 

CLOSX 

;CLOSE IOCB'S 1 AND 2 


BIT 

OPT 

i BRANCH IF NO pluN OPTION 


EMI 

DRUN 


JSR 

JMPRUN 

iJUMP THROUGH RUN VEC TOR 

DRUN 

LDA 

#0 

> OK STATUS | 


BIT 

LOADFG 

;WAS MEMORY SWAPPED? 


STA 

LOADFG 



BMI 

CLFX 

;BRANCH IF MEMORY WASN'T SWAPPED 


JSR 

MEMSVG 

;DOES MEMORY SAVE FILE EXIST? 


BMI 

DRUN1 

;BRANCH IF NOT 


PLA 




PLA 




JMP 

GOOD 

iWRITE MEMORY AND RELOAD DUP 

f 

SEE IF 

DUP WRITTEN OVER. 

IF IS RELOAD & TELL USER NEED MEM 

} 

LOAD THIS FILE. 


DR UNI 

LDA 

DUPFLG 

.SEE IF DUP CLOBBERED 


BNE 

DRUN2 

;NO, THEN RETURN 


LDA 

#. LOW. NMSFL 

iELSE TELL USER NEED MEM. SAV 


LDX 

#. LOW. NMSFH 



JSR 

PRNTMSG 

(PRINT MSG 

; 

JMP 

RRDUP 

; RELOAD «< RUN DUP 


RETURN 

TO CALLING ROUTINE 

DRUN2 

LDA 

#0 

;NO DUP ERR MSG ON EOF 

CLFX 

TAX 



RTS 

RTS 



J 

ERROR RETURNS 


LNLF 

JSR 

CLOSX 



LDA 

#3 

i BAD LOAD FILE 


BNE 

CLFX 


ERST 

TYA 




PHA 

JSR 


CLOSX 


ERR LINE ADDR Bi B2 B3 B4 
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279 

1654 

68 



280 

1655 

A8 



281 

1656 

DO 

EE 


282 





283 





284 





285 





286 

1658 

A2 

10 


287 

165A 

AD 

AO 

15 

288 

165D 

9D 

44 

03 

289 

1660 

48 



290 

1661 

AD 

A1 

15 

291 

1664 

9D 

45 

03 

292 

1667 

A8 



293 

1668 

68 



294 

1669 

C8 



295 

166A 

DO 

IF 


296 

166C 

A8 



297 

166D 

C8 



298 

166E 

DO 

IB 


299 





300 





301 





302 

1670 

AD 

A2 

15 

303 

1673 

8D 

AO 

15 

304 

1676 

AD 

A3 

15 

305 

1679 

8D 

A1 

15 

306 

167C 

A9 

A2 


307 

167E 

9D 

44 

03 

308 

1681 

A9 

15 


309 

1683 

9D 

45 

03 

310 

1686 

A9 

02 


311 

1688 

4C 

05 

16 

312 





313 





314 





315 

168B 

AD 

A2 

15 

316 

168E 

38 



317 

168F 

ED 

AO 

15 

318 

1692 

9D 

48 

03 

319 

1695 

AD 

A3 

15 

320 

1698 

ED 

A1 

15 

321 

169B 

9D 

49 

03 

322 

169E 

AD 

A1 

15 

323 

16A1 

20 

FA 

16 

324 

16A4 

BO 

15 


325 

16A6 

AD 

A3 

15 

326 

16A9 

20 

FA 

16 

327 

16 AC 

BO 

OD 


328 





329 





330 





331 

16AE 

AD 

OB 

17 

332 

16B1 

30 

08 



PLA 

TAY 

BNE CLFX 


STOK 


ADOK 


ANWD 


CONTINUE WITH LOAD - CHECK LOAD ADDRESS FOR HEADER 
HEADER IF HAVE CONCATENATED LOAD FILES 


LDX 

#*10 


LDA 

HDBUF 

j MOVE PARAMS TO IOCB 

STA 

ICBAL,X 


PHA 



LDA 

HDBUF+1 


STA 

ICBAH/X 


TAY 



PLA 



I NY 


;WAS ADDRESS FF? 

BNE 

ADOK 

> BRANCH IF NOT 

TAY 



INY 


> OTHER BYTE FF? 

BNE 

ADOK 

,BRANCH IF NOT 


HAVE A HEADER & START ADDRESS - GET END ADDRESS FOR TEXT & DO AG 


LDA 

HDBUF+2 

STA 

HDBUF 

LDA 

HDBUF+3 

STA 

HDBUF+1 

LDA 

#. LOW. HDBUF+2 

STA 

ICBAL.X 

LDA 

#. HIGH. (HDBUF+2) 

STA 

ICBAH,X 

LDA 

#2 

JMP 

RDDRC1 

GET LENGTH OF TEXT. THEN 

LDA 

SEC 

HDBUF+2 

SBC 

HDBUF 

STA 

ICBLL,X 

LDA 

HDBUF+3 

SBC 

HDBUF+1 

STA 

ICBLHi X 

LDA 

HDBUF+1 

JSR 

ANDG 

BCS 

AND 

LDA 

HDBUF+3 

JSR 

ANDO 

BCS 

AND 

SINCE 

TEXT IN DUP, LOAD 1 

LDA 

MEMLDD 

BMI 

AND 


i MOVE LOAD ADDRESS 


SO LOAD ADDRESS DOESN'T GET WIPED OUT B 


i IS BEGINNING ADDRESS WITHIN DUP? 
;BRANCH IF SO 

. IS ENDING ADDRESS WITHIN DUP? 

; BRANCH IF SO 


;BRANCH IF MEM. SAV ALREADY LOADED 


R LINE 

ADDR 

B 1 

B2 

B3 B4 

333 

16B3 

A9 

80 


334 

16B5 

OD 

9F 

15 

335 

16BS 

8D 

9F 

15 

336 

16BB 

FE 

4e 

03 

337 

16BE 

DO 

03 


338 

16C0 

FE 

49 

03 

339 

16C3 

2C 

9F 

15 

340 

16C6 

30 

13 


341 

16C8 

AD 

OB 

17 

343 

16CB 

30 

OE 


343 

16CD 

CE 

OB 

17 

344 

16D0 

20 

39 

19 

345 

16D3 

A9 

00 


346 

16D5 

8D 

9D 

15 

347 

16D8 

20 

2E 

19 

348 





349 





350 





351 

1 6DB 

A2 

10 


352 

16DD 

A9 

47 


353 

16DF 

8D 

E2 

02 

354 

16E2 

A9 

16 


355 

16E4 

8D 

E3 

02 

356 

16E7 

20 

56 

E4 

357 

16EA 

10 

03 


358 

16EC 

4C 

4F 

16 

359 

16EF 

2C 

9E 

15 

360 

16F2 

30 

03 


361 

16F4 

20 

05 

17 

362 

16F7 

4C 

F7 

15 


363 

364 

365 

366 

367 

368 


369 

16FA 

C9 

ID 



370 

16FC 

90 

06 



371 

1,6 FE 

C9 

34 



372 

1700 

2A 




373 

1701 

49 

01 



374 

1703 

4A 




375 

1704 

60 




376 






377 






378 

1705 

6C 

E2 

02 


379 

1708 

6C 

EO 

02 


380 






381 






382 

170B 

00 




383 

170C 

44 

31 

3A 

41 

384 

1710 

55 

54 

4F 

52 

385 

1714 

55 

4E 

2E 

53 

386 

1718 

59 

53 

9B 



DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 PAGE 9 


LDA 

#$80 


ORA 

LOADFG 


STA 

LOADFG 

;SET MEM. SAV DOESN'T HAVE TO BE LOADED 

INC 

ICBLL/X 


BNE 

*+5 


INC 

ICBLH, X 


BIT 

LOADFG 

)DOES MEMORY HAVE TO BE LOADED 

BMI 

DLM 

iBRANCH IF NOT 

LDA 

MEMLDD 

i WAS MEM. SAV ALREADY LOADED? 

BMI 

DLM 

i BRANCH IF SO 

DEC 

MEMLDD 


JSR 

LDMEM 

■ LOAD MEM. SAVE FILE (IF IT EXISTS) 

LDA 

#0 

.SHOW USER AREA NOT DUP IN MEMORY 

STA 

DUPFLG 


JSR 

RELDIN 

; RESTORE DOS IN VECTOR FROM SAVED LOG 


SET NO INIT ADDR DEFAULT THEN READ IN TEXT & ATTEMPT IN IT 


DLM 

LDX 

#$10 



LDA 

# LOW. RTS 



STA 

INITAD 



LDA 

#. HIGH. RTS 



STA 

INITAD+1 

;INIT DEFAULTS TO AN RTS 


JSR 

CIO 

;READ DATA DIRECTLY TO MEMORY 


BPL 

DLM1 



JMP 

ERST 

;IF ERRORS 

DLM1 

BIT 

OPT 



BMI 

DINIT 

;BRANCH IF NO GO OPTION 


JSR 

JMPINT 

.DO INIT 

DINIT 

JMP 

RDDRC 

.GET NEXT SECTION OF LOAD FILE 


i SUBROUTINE TO DETERMINE IF ADDRESS IS WITHIN DUP ADDRESS SPACE 

i ENTRY - HI BYTE OF ADDRESS IN REG. A 

< RETURNS - CARRY SET : WITHIN DUP 

J CARRY CLR : NOT WITHIN DUP 

I 

AWDG CMP #. LOW. NDOSH 

BCC AWDQR ; BRANCH IF HI BYTE LT DUP START 

CMP #. LOW. NMDUPH+1 

ROL A 

EOR #1 

LSR A 1 COMPLEMENT CARRY 

AWDQR RTS 


JMPINT JMP (INITAD) 

JMPRUN JMP (RUNAD) 


MEMLDD . BYTE 
AF . BYTE 


0 

'Dl. AUTORUN. SYS', CR 


LINE 

ADDR 

B1 

B2 

B3 

B4 

DISK 

UTILITY 

PROGRAMS (DUP) VER 2.9 

11/18/80 

387 

171B 






HILO 

AF 


388 

0017 





+AFH 

= 

AF/256 


389 

oooc 





' +AFL 

= 

(-256)*AFH+AF 


390 

171B 

4E 

45 

45 

44 

NMSF 

. BYTE 

'NEED MEM. SAV TO LOAD 

THIS FILE 

391 

1 71F 

20 

4D 

45 

4D 





392 

1723 

2E 

53 

41 

56 





393 

1727 

20 

54 

4F 

20 





394 

172B 

4C 

4F 

41 

44 





395 

1 72F 

20 

54 

48 

49 





396 

1733 

53 

20 

46 

49 





397 

1737 

4C 

45 

2E 

9B 





398 

173B 






HILO 

NMSF 


399 

0017 





+NMSFH 

- 

NMSF/256 


400 

001B 





+NMSFL 

- 

(-256)*NMSFH+NMSF 



PAGE 


LINE 

ADDR 

B1 

B2 

B3 B4 

DISK 

UTILITY 

PROGRAMS (DUP) VER 2.9 11/18/80 PAGE 11 

401 






. PAGE 


402 





t **** CREATE MEM. SAV FILE **** 

403 





/ 



404 





i 



405 





;ROUTINE WRITTEN BY M. E. . APRIL 21,1980 

406 





i THIS 

ROUTINE 

CREATES A FILE ON DISK OF DATA FROM MEMORY 

407 





iCREATE FILE CALLED 'D1: MEM. SAVSET Y=1 

408 





J 



409 





; ABLE 

TO CREATE FILE THEN SET REG. Y=ERROR RETURNED FROM CIO 

410 





,THE RAM TO BE OCCUPIED BY DUP IS STORED BY THIS ROUTINE INTO 

41 1 





; 'MEMORY. SAV' 


412 





f 



413 





f 



414 

173B 

44 

31 

3A 4D 

NAME 

. BYTE 

'Dl: MEM. SAV', CR 

415 

173F 

45 

4D 

2E 53 




416 

1743 

41 

56 

9B 




417 

1746 





HILO 

NAME 

418 

0017 




+NAMEH 

SB 

NAME/256 

419 

003B 




+NAMEL 

= 

(-256 > *NAMEH+NAME 

420 

1746 

20 

AA 

19 

MWRITE 

JSR 

CLOSX }CLOSE IOCB AND OPEN IT TO WRITE 

421 

1749 

A9 

08 



LDA 

#OWRIT i 

422 

1 74B 

9D 

4A 

03 


STA 

ICAX1,X * 

423 

1 74E 

20 

79 

17 


JSR 

OREST * OPEN FOR WRITE 

424 

1751 

30 

38 



BMI 

ERRWR iIF ERROR THEN JMP AND RET 

425 





* 



426 





; 



427 





;WRITE 

MEMORY 

BLOCK 

428 





1 



429 

1753 

A9 

OB 



LDA 

#PUTCHR 

430 

1755 

9D 

42 

03 


STA 

ICCOM, X 

431 

1758 

A9 

7C 



LDA 

#. LOW. NDOSL i STORE START OF BLOCK FOR CIO 

432 

175A 

9D 

44 

03 


STA 

ICBAL, X 

433 

175D 

A9 

ID 



LDA 

#. LOW. NDOSH ;START ADDR (HIGH) 

434 

175F 

9D 

45 

03 


STA 

ICBAH, X 

435 

1762 

A9 

8A 



LDA 

#. LOW. MLENL+1 ;LENGTH OF BLOCK 

436 

1764 

9D 

48 

03 


STA 

ICBLL, X 

437 

1767 

A9 

15 



LDA 

#. LOW.MLENH ;LENGTH(HIGH) 

438 

1769 

9D 

49 

03 


STA 

ICBLH, X 

439 

176C 

20 

56 

E4 


JSR 

CIO iWRITE DATA BLOCK 

440 

176F 

30 

1A 



BMI 

ERRWR ;IF WRITE ERROR THEN JMP 

441 

1771 

20 

AA 

19 


JSR 

CLOSX 

442 

1774 

30 

15 



BMI 

ERRWR 

443 

1776 

AO 

00 



LDY 

#0 

444 

1778 

60 



RET 

RTS 


445 





i 



446 

1779 

A9 

03 


OREST 

LDA 

#. LOW. OPEN 

447 

177B 

9D 

42 

03 


STA 

ICCOM,X 

448 

177E 

A9 

3B 



LDA 

#. LOW. NAMEL i ROUTINE TO COMPLETE OPEN OF Dl: MEMORY 

449 

1780 

9D 

44 

03 


STA 

ICBAL, X JCALLING SUB SUPPLIES 'READ' OR 'WRITE' 

450 

1783 

A9 

17 



LDA 

#. LOW. NAMEH i IN ICAX1 

451 

1785 

9D 

45 

03 


STA 

ICBAH, X 

452 

1788 

4C 

56 

E4 


JMP 

CIO 

453 





7 



454 

1 78B 

8C 

9A 

17 

ERRWR 

STY 

TEMPh-1 i TEMP STORE FOR Y FLAG 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2. 9 11/18/80 


455 

178E 

20 

AA 

19 

USR 

CLOSX 

i CLOSE #$20 


456 

1791 

A9 

21 


LDA 

#. LOW. DELETE 

» DELETE PART OF 

MENSAV 

457 

1793 

9D 

42 

03 

STA 

I CCOMi X 



458 

1796 

20 

79 

17 

JSR 

OREST 



459 

1799 

AO 

00 


TEMP LDY 

#0 

;RESTORE FLAG 


460 

179B 

60 



RTS 


i RETURN TO MAIN 

CALLER 


RAGE 


ER R LINE ADDR 


B1 32 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 


461 


462 


463 


464 


465 

1790 

466 

179E 

467 

179F 

468 

17A1 

469 

17A4 

470 

17A7 

471 

1 7A8 

472 

17AA 

473 


474 

17AD 

475 

1 7B0 

476 

17132 

477 

17B4 

478 

17B6 

479 


480 


481 

17B8 

482 

17BB 

483 

1 7BD 

484 

1700 

485 


486 

1702 

487 

1704 

488 

1706 

489 


490 

1709 

491 

1 7CB 

492 

17CD 

493 


494 


495 


496 

1 7D0 

497 

17D2 

498 

1 7D5 

499 

1 7D7 

500 

17DA 

501 

1 7 DC 

502 

17DF 

503 

17E1 

504 

17E4 

505 

17E6 

506 

17E9 

507 

17EC 

508 

17EF 

509 

1 7F1 

510 

1 7F3 

51 1 

1 7F5 

512 


513 

17F7 

514 

1 7F9 


OG 00 
00 

A2 00 
BE 9E 17 
BE 9F 15 
CA 

86 08 
20 76 19 

20 73 18 
10 06 
A9 00 
85 08 
FO 3F 


20 46 17 
30 05 
CE 9E 17 
30 35 

A9 3A 
A2 18 
20 BE 19 

A9 5B 
A2 18 
20 BE 19 


A9 05 
8D 42 03 
A9 00 
8D 44 03 
A9 01 
8D 45 03 
A9 02 
8D 48 03 
A9 00 
8D 49 03 
20 56 E4 
AD 00 01 
09 59 
DO 38 
A9 00 
85 08 

A2 20 
A9 OC 


. PAGE 


r #### 

i 

ENTRY 

POINT ON 'DOS 

' CALL **** 

$ 

INISAV 

.DBYTE 

0 

;DOSINI VECTOR SAVE LOG 

MEMFLG 

. BYTE 

0 


MNDUP 

LDX 

#0 



STX 

MEMFLG 



STX 

LOADFG 



DEX 




STX 

WARMST 



JSR 

INITIO 



JSR 

MEMSVG 

)FIND OUT IF FILE D1:MEM SAV EXISTS 


BPL 

GOOD 

/BRANCH IF MEM. SAV FILE EXITS 


LDA 

#0 



STA 

WARMST 

;CLEAR WARM START FLAG 

; 

BEG 

FINAL 


i 

GOOD 

JSR 

MWRITE 

/WRITE USER AREA TO MEM. SAV 


BMI 

ERROR 



DEC 

MEMFLG 

/SHOW MEMORY WRITTEN 


BMI 

FINAL 


ERROR 

LDA 

#. LOW. ERRMES 

/PRINT ERROR OCCURED MSG 


LDX 

#. HIGH. ERRMES 



JSR 

PRNTMSG 

/GOTO MSG PRINTER 


LDA 

#. LOW. ERR 

/PRINT QUERY TO RUN DOS 


LDX 

#. HIGH. ERR 



JSR 

PRNTMSG 

/GOTO MSG PRINTER 


WAIT FOR Y TO RUN DOS 



LDA 

#GETREC 




STA 

ICCOM 




LDA 

#. LOW. STAKL 




STA 

ICBAL 




LDA 

#. LOW. STAKH 




STA 

ICBAH 




LDA 

#2 




STA 

ICBLL 




LDA 

#0 




STA 

ICBLH 




JSR 

CIO 




LDA 

STAK 

\ SEE IF 

y type: 


CMP 

# 'Y 




BNE 

RTCART 

JBRANCH 

IF NOT 


LDA 

#0 




STA 

WARMST 



FINAL 

LDX 

#$20 




LDA 

#CLOSE 




13 


ERR LINE 

ADDR 

B1 

B2 

B3 

B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2.9 11/18/80 PAGE 

515 

17FB 

9D 

42 

03 



STA 

ICCOM, X 

;SET UP CLOSE COMMAND 

516 

17FE 

20 

56 

E4 



JSR 

CIO 

.PERFORM CLOSE COMMAND 

517 






i 




518 

1801 

A 5 

OC 



RRDUP 

LDA 

DOSINI 

.SAVE DOS INIT VECTOR 

519 

1803 

8D 

9C 

17 



STA 

INISAV 


520 

1806 

A5 

OD 




LDA 

DOSINI+1 


521 

1308 

8D 

9D 

17 



STA 

INISAV+1 


522 






, 




523 

180B 

A9 

40 




LDA 

#. LOW. DOS 

iSET UP DUP INIT ADDR AS 

524 

180D 

85 

OC 




STA 

DOSINI 

;DOS INIT VECTOR 

525 

180F 

A9 

15 




LDA 

#. HIGH. DOS 


526 

1811 

85 

OD 




STA 

DOSINI+1 


527 






i 




528 

1813 

A9 

2F 



RRDUP1 

LDA 

#. LOW. DUPSYS 


529 

1815 

A2 

10 




LDX 

#$10 


530 

1817 

9D 

44 

03 



STA 

ICBALiX 


531 

181A 

A9 

18 




LDA 

#. HIGH. DUPSYS 


532 

181C 

9D 

45 

03 



STA 

ICBAHiX 


533 

181F 

AO 

00 




LDY 

#0 


534 

1821 

8C 

9E 

15 



STY 

OPT 

.•ASSURE NO /N OPTION IN EFFECT 

535 

1824 

88 





DEY 


iSHOW THAT DUP IS IN MEMORY 

536 

1825 

8C 

9D 

15 



STY 

DUPFLG 


537 

1828 

20 

A4 

15 



JSR 

SFLOAD 

> LOAD DUP. SYS AND RUN IT 

538 

182B 

60 




RTCART 

RTS 



539 

182C 

45 

3A 

9B 


EC 

BYTE 

'E: CR 


540 

182F 






HILO 

EC 


541 

0018 





+ECH 

= 

EC/256 


542 

002C 





+ECL 

= 

(“256)#ECH+EC 


543 

182F 






HILO 

MNDUP 


544 

0017 





+MNDUPH 

5= 

MNDUP/256 


545 

009F 





+MNDUPL 


(-256) -a-MNDUPH+MNDUP 

546 

182F 

44 

31 

3A 

44 

DUPSYS 

. BYTE 

'Dl: DUP. SYS', < 

CR 

547 

1833 

55 

50 

2E 

53 





548 

1837 

59 

53 

9B 






549 






i 




550 

183 A 

45 

52 

52 

4F 

ERRMES 

. BYTE 

'ERROR-SAVING 

USER MEMORY ON DISK'.CR 

551 

183E 

52 

2D 

53 

41 





552 

1842 

56 

49 

4E 

47 





553 

1846 

20 

55 

53 

45 





554 

184A 

52 

20 

4D 

45 





555 

184E 

4D 

4F 

52 

59 





556 

1852 

20 

4F 

4E 

20 





557 

1856 

44 

49 

53 

4B 





558 

185A 

9B 








559 

185B 

54 

59 

50 

45 

ERR 

. BYTE 

'TYPE Y TO STILL RUN DOS',CR 

560 

185F 

20 

59 

20 

54 





561 

1863 

4F 

20 

53 

54 





562 

1867 

49 

4C 

4C 

20 





563 

186B 

52 

55 

4E 

20 





564 

186F 

44 

4F 

53 

9B 






ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISK UTILITY PROGRAMS (DUP) 

VER 2. 9 11/18/80 PAGE 

15 

565 










566 





; 

SUBROUTINES FOR RESIDENT DUP **** 


567 





1 





568 





i 





569 





f 

ROUTINE 

TESTS IF MEM. 

SAV IS PRESENT ON THE DISK. 


570 





T 

RETURNS 

- MINUS IF NOT THERE 


571 





i 


PLUS IF MEM. SAV IS THERE 


572 





i 





573 

1873 

20 

B4 

19 

MEMSVG 

JSR 

CL0S20 

> CLOSE IOCB # 2 


574 

1876 

A9 

03 



LDA 

#OPEN 



575 

1878 

9D 

42 

03 


STA 

ICCOM,X 



576 

1 87B 

A9 

3B 



LDA 

#. LOW. NAMEL 



577 

1 87D 

9D 

44 

03 


STA 

ICBAL,X 



578 

1880 

A9 

17 



LDA 

#. LOW. NAMEH 



579 

1882 

9D 

45 

03 


STA 

ICBAH/ X 



580 

1885 

A9 

OC 



LDA 

#ORDWRT 



581 

1887 

9D 

4A 

03 


STA 

ICAX1 / X 

; TRY TO OPEN D1:: MEM. SAV FOR READ/WRITE 

582 

1 88A 

20 

56 

E4 


JSR 

CIO 



583 

188D 

08 




PHP 


; SAVE STATUS 


584 

188E 

20 

B4 

19 


JSR 

CL0S20 

i CLOSE MEM. SAV 


585 

1891 

28 




PLP 


i RESTORE STATUS 


586 

1892 

60 




RTS 




587 

1893 









588 





; 





589 





; 





590 





} 

SAVE FILE SUBROUTINE 

- WRITE FILE BODY, INIT, & RUN VECTORS 

591 





; 





592 

1893 

A9 

00 


WDR 1 

LDA 

#0 

THIS IMMEDIATE VALUE MODIFIED 


593 

1895 

F0 

03 



BEG 

WDR2 

; BR IF MEM FILE DOESNT HAVE TO BE 

LOADED 

594 

1897 

20 

39 

19 


JSR 

LDMEM 



595 

189A 

A2 

10 


WDR2 

LDX 

#$10 



596 

189C 

20 

56 

E4 


JSR 

CIO 

>DO SAVE - WRITE BODY TO DISK 


597 

189F 

A9 

00 


INITG 

LDA 

#0 

i THIS IMMED VALUE CHANGED DURING 

SAVE 

598 

18A1 

FO 

1A 



BEG 

RUNG 

>SET TO FF WHEN AN INIT VECTOR IS 

PRESNT 

599 

18A3 

EE 

AO 

18 


INC 

INITG+1 



600 

18A6 

AD 

E2 

02 


LDA 

INITAD 



601 

18A9 

8D 

E4 

19 


STA 

VECTR 

t IF INIT VECTOR FOR FILE SAVE IT 


602 

1 SAC 

AD 

E3 

02 


LDA 

INITAD+1 



603 

18AF 

8D 

E5 

19 


STA 

VECTR+1 



604 

18B2 

A9 

E2 



LDA 

#. LOW. INITAD 



605 

18B4 

AA 




TAX 




606 

18B5 

8D 

EO 

19 


STA 

LDST 



607 

18B8 

A9 

02 



LDA 

#. HIGH. INITAD 



608 

18BA 

20 

EF 

18 


JSR 

WRVEC 



609 

18BD 

A9 

00 


RUNG 

LDA 

#0 

;THIS IMMEDIATE VALUE MODIFIED 


610 

18BF 

FO 

1A 



BEG 

NORNAD 

; SET TO FF WHEN A RUN VECTOR IS PRESENT 

611 

1 SC 1 

EE 

BE 

18 


INC 

RUNQ+1 



612 

1 8C4 

AD 

EO 

02 


LDA 

RUNAD 



613 

18C7 

8D 

E4 

19 


STA 

VECTR 

;IF RUN VECTOR FOR FILE SAVE IT 


614 

18CA 

AD 

El 

02 


LDA 

RUNAD+1 



615 

18CD 

8D 

E5 

19 


STA 

VECTR+1 



616 

1 8D0 

A9 

EO 



LDA 

#. LOW. RUNAD 



617 

18D2 

AA 




TAX 




618 

18D3 

SD 

EO 

19 


STA 

LDST 




ERR LINE AD DR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 


619 

1 8D6 

A9 

02 



LDA 


#.HIGH RUNAD 


620 

18D8 

20 

EF 

18 


JSR 


WRVEC 


621 

18DB 

20 

AA 

19 

NORNAD 

JSR 


CLOSX 

» CLOSE IOCBS 1 &2 

622 

18DE 

AD 

9E 

17 


LDA 


MEMFLG 


623 

18E1 

2D 

94 

18 


AND 


WDR1+1 


624 

18E4 

FO 

06 



BEG 


DRRDUP 


625 

1 8E6 

EE 

94 

18 


INC 


WDR1+1 

JRESET MEM. NEEDS TO BE LOADED FLAG 

626 

1 8E9 

4C 

13 

18 


JMP 


RRDUP1 

;RELOAD k RUN DUP 

627 

1 SEC 

4C 

75 

20 

DRRDUP 

JMP 


DOSOS 

iRUN THE SWAPPED IN DUP 

628 










629 





} 





630 





} 





631 

18EF 

8D 

El 

19 

WRVEC 

STA 


LDST+1 


632 

18F2 

E8 




INX 




633 

18F3 

BE 

E2 

19 


STX 


LDND 


634 

18F6 

8D 

E3 

19 


STA 


LDND+1 


635 

1 8F9 

A2 

10 



LDX 


#$10 


636 

1 8FB 

A9 

EO 



LDA 


#. LOW. LDST 


637 

18FD 

9D 

44 

03 


STA 


ICBAL* X 


638 

1900 

A9 

19 



LDA 


#. HIGH. LDST 


639 

1902 

9D 

45 

03 


STA 


IC BAH* X 


640 

1905 

A9 

06 



LDA 


#6 


641 

1907 

9D 

48 

03 


STA 


ICBLL, X 


642 

190A 

A9 

00 



LDA 


#0 


643 

190C 

9D 

49 

03 


STA 


ICBLH, X 


644 

1 90F 

4C 

56 

E4 


JMP 


CIO 

* WRITE INIT OR RUN ADDRESS 

645 





J 





646 





J 





647 





j 

JUMP 

TO 

CARTRIDGE 


648 





■, 





649 

1912 

20 

39 

19 

CLMJMP 

JSR 


LDMEM 


650 

1915 

A9 

00 



LDA 


#0 

iSHOW DUP NO LONGER IN MEMORY 

651 

1917 

8D 

9D 

15 


STA 


DUPFLG 


652 

1 9 1A 

20 

2E 

19 


JSR 


RELDIN 

iRESTORE DOS INIT VECTOR SAVED 

653 

1 9 1 D 

6C 

FA 

BF 


JMP 


(CARTST) 

iJUMP TO CARTRIDGE 

654 










655 





i 





656 





J 

LOAD 

MEM. SAV (IF IT EXISTS) BEFORE RUN AT ADDRESS 

657 





i 





658 

1920 

20 

39 

19 

LMTR 

JSR 


LDMEM 

;LOAD MEM. SAVE IF IT EXISTS 

659 

1923 

A9 

00 



LDA 


#0 

* SHOW THAT DUP NO LONGER IN MEMORY 

660 

1925 

8D 

9D 

15 


STA 


DUPFLG 


661 

1928 

20 

2E 

19 


JSR 


RELDIN 

iRESTORE DOS INIT VECTOR SAVED 

662 

192B 

6C 

1A 

00 


JMP 


(RAMLO) 

;RUN AT ADDRESS 

663 





; 





664 





y 

RESTORE 

DOSINI VECTOR 

FROM SAVED LOCATION 

665 





i 





666 

192E 

AD 

9C 

17 

RELDIN 

LDA 


INISAV 


667 

1931 

85 

oc 



STA 


DOSINI 


668 

1933 

AD 

9D 

17 


LDA 


INISAV+1 


669 

1936 

85 

OD 



STA 


DOSINI+1 


670 

1938 

60 




RTS 




671 










672 





i 






ERR LINE ADDR El B2 B3 B4 


DISK 


673 

674 

675 

676 

1939 

AD 

9E 

17 

677 

193C 

DO 

01 


678 

679 

193E 
193F 

60 

20 

73 

18 

680 

1942 

10 

06 


681 

1944 

A9 

00 


682 

1946 

85 

08 


683 

1948 

FO 

24 


684 

685 

194A 

A9 

03 


686 

1 94C 

9D 

42 

03 

687 

1 94F 

20 

56 

E4 

688 

1952 

A9 

07 


689 

1954 

9D 

42 

03 

690 

1957 

A9 

8A 


691 

1959 

9D 

48 

03 

692 

195C 

A9 

15 


693 

195E 

9D 

49 

03 

694 

1961 

A9 

7C 


695 

1963 

9D 

44 

03 

696 

1966 

A9 

ID 


697 

1968 

9D 

45 

03 

698 

196B 

20 

56 

E4 

699 

1 96E 

A9 

OC 


700 

1970 

9D 

42 

03 

701 

1973 

4C 

56 

E4 

702 

703 

704 

705 

1976 

20 

6E 

E4 

706 

707 

1979 

A2 

00 


708 

197B 

A9 

03 


709 

1 97D 

9D 

42 

03 

710 

1980 

A9 

2C 


711 

1982 

9D 

44 

03 

712 

1985 

A9 

18 


713 

1987 

9D 

45 

03 

714 

1 98A 

A9 

OC 


715 

1 98C 

9D 

4A 

03 

716 

1 98F 

20 

56 

E4 

717 

718 

1992 

A2 

00 


719 

1994 

8E 

1C 

02 

720 

1997 

8E 

ID 

02 

721 

199A 

AO 

01 


722 

199C 

A9 

03 


723 

1 99E 

en 

2A 

02 

724 

19A1 

20 

5C 

E4 

725 

19A4 

AD 

2A 

02 

726 

19A7 

DO 

FB 



LDNEN 

LDNEN1 

LDNEN2 


CL0S2 

i 

j 

t 

INITIO 


WAITIN 


ILITY PROGRANS (DUP > VER 2.9 11/18/80 


PAGE 


17 


SUBROUTINE - LDNEN 


LOAD 

MEM. SAV IF IT EXISTS 

LDA 

NEMFLG 


BNE 

LDNEN1 

;BRANCH IF MEMORY WAS SAVED 

RTS 



JSR 

NENSVG 


BPL 

LDNEN2 

; BRANCH IF MEM. SAV FILE DOES EXIST 

LDA 

#0 

iTELL CART PGM AREA CLOBBERED 

STA 

WARNST 


BEG 

CL0S2 

;GO CLOSE AND GOTO CART 

LDA 

#OPEN 


STA 

ICCON# X 


JSR 

CIO 

;REOPEN MEM. SAV 

LDA 

#GETCHR 


STA 

ICCON#X 


LDA 

#. LOW. NLENL+1 


STA 

ICBLL# X 


LDA 

#. LOW. MLENH 


STA 

ICBLH# X 


LDA 

#. LOW. NDOSL 


STA 

IC3AL# X 


LDA 

#. LOW. NDOSH 


STA 

ICBAH# X 


JSR 

CIO 


LDA 

#CLOSE 


STA 

ICCON# X 


JMP 

CIO 

; CLOSE MEM. SAV 


CLOSE ALL IOCBS & RE-OPEN ZERO AS SCREEN EDITOR 


JSR 

CIOINV 

; THIS ROUTINE CLOSES ALL IOCB'S 
;THEN REOPENS THE SCREEN EDITOR 

LDX 

#0 


LDA 

#OPEN 


STA 

ICCON# X 


LDA 

#. LOW. ECL 


STA 

ICBAL# X 


LDA 

#. LOW. ECH 


STA 

ICBAH# X 


LDA 

#ORDWRT 


STA 

ICAX1# X 


JSR 

CIO 


LDX 

#0 

(DELAY UNTIL DMA (SCREEN) IS RESTORED 

STX 

CDTHV3 

; CLEAR TIMER NUMBER 3 

STX 

CDTHV3+1 


LDY 

#1 

(WAIT FOR ONE VBLANK 

LDA 

#3 

; USE TIMER # 3 

STA 

CDTNF3 

; SET TIMER DONE FLAG TO NOT DONE 

JSR 

SETVBV 

; SYSTEM CALL TO SET TIMER 

LDA 

CDTNF3 

i WAIT UNTIL TIMER IS DONE 

BNE 

WAITIN 



RR 


LINE 

ADDR 

B 1 

B2 

B3 B4 

DISK UTILITY 

PROGRAMS (DUP) VER 2.9 11/18/80 PAGE 18 

727 





, 



728 

19A9 

60 




RTS 


729 








730 





; CLQSX 

- CLOSE IOCBS 10* 20 

731 








732 

1 9AA 

A9 

00 


CLQSX 

LDA 

#CLQSE 

733 

1 9AC 

A2 

10 



LDX 

#$10 

734 

1 9AE 

9D 

42 

03 


STA 

ICCOM* X 

735 

19B1 

20 

56 

E4 


JSR 

CIO 

736 





; 



737 





j 

ENTRY 

TO CLOSE IOCB # 2 ONLY 

738 





; 



739 

1 9B4 

A2 

20 


CLQS20 

LDX 

#$20 

740 

19B6 

A9 

00 



LDA 

#CLQSE 

741 

19B8 

9D 

42 

03 


STA 

ICCOM, X 

742 

1 9BB 

40 

56 

E4 


JMP 

CIO 

743 








744 






SUBROUTINE - PRNTMSG 

745 






PUTS A 

CHARACTER STRING TERMINATED BY A CARRIAGE RETURN CHAR TO 

746 






SCREEN 

EDITOR. 

747 








748 






ENTRY 

- REG A : LOW BYTE MSG ADDRESS 

749 







REG X : HI BYTE MSG ADDRESS 

750 








751 






PUT PARAMS IN IOCB - USE IOCB 0 FOR SCREEN EDITOR 

752 








753 

1 9BE 

8D 

44 

03 

PRNTMSG 

STA 

ICBAL < SET MSG ADDR IN IOCB BUFF ADDR 

754 

1901 

8E 

45 

03 


STX 

ICBAH 

755 





* 



756 





i 

SET UP 

REST OF IOCB 

757 





t 



758 

19C4 

A9 

80 



LDA 

#*80 i SET IN BUFFER LENGTH 

759 

19C6 

8D 

48 

03 


STA 

ICELL ,ASSUME 128 BYTES MAX 

760 

19C9 

A2 

00 



LDX 

#0 /USE REG X TO SET IN IOCB INDEX FOR CIO 

761 

19CB 

8E 

49 

03 


STX 

ICBLH 

762 

1 9CE 

A9 

09 



LDA 

#PUTREC ;PUT MSG 

763 

19D0 

8D 

42 

03 


STA 

ICCOM 

764 





J 



765 






TEST IF DUP IS RESIDENT - IF IS THEN USE INDIRECT CIO ROUTINE 

766 





J 

TO TEST FOR BREAK KEY ABORT 

767 





J 



768 

19D3 

AD 

9D 

15 


LDA 

DUPFLG / =ZERQ IF NON-RESIDENT DUP NOT IN MEM 

769 

1 9D6 

DO 

03 



BNE 

INMEM iIN MEMORY THEN USE INDIRECT CIO CALL 

770 





J 



771 

1 9D8 

40 

56 

E4 


JMP 

CIO /ELSE GO DIRECT TO CIO & RETURN 

772 





J 



773 

19DB 

40 

AA 

31 

INMEM 

JMP 

CI01 /USE CIO CALL WITH TEST FOR BREAK KEY Ai 

774 





t 



775 





i 



776 

19DE 

FF 

FF 


SAVH 

. BYTE 

*FF, *FF 

777 

19E0 





HILO 

SAVH 

778 

0019 




+SAVHH 

* 

SAVH/236 

7 79 

00DE 




+SAVHL 

= 

(-256 > *SAVHH+SAVH 

780 

1 9E0 




LDST: 

. RES 

2 



RR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 


19 


781 

19E2 


HILO 

LDST 

782 

0019 

+LDSTH 

EL 

LDST/256 

783 

OOEO 

+LDSTL 

* 

<-256>*LDSTH+LDST 

784 

19E2 

LDND: 

. RES 

2 

785 

19E4 

VECTR: 

RES 

2 


ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP ) VER 2.9 11/18/80 


PAGE 


20 


786 


787 


788 


789 


790 


791 


7 92 


793 


794 

0032 

795 

0033 

796 

0034 

797 

0035 

798 

0031 

799 

003B 

800 

003C 

801 

0030 

802 

0038 

803 

0039 

804 

0010 

805 


806 


807 


808 

D20A 

809 

D20D 

810 

D20D 

811 

D20E 

812 

D20F 

813 


814 


815 


816 

008C 

817 

008E 

818 

008F 


. PAGE 

**** SIO INTERRUPT SERVICE ROUTINES **** 


J EQUATES FOR INTERRUPT ROUTINES MOVED FROM SIO 

i 

i ZERO PAGE 

p 

BUFRLO = 

BUFRHI = 

BFENLO = 

BFENHI = 

CHKSUM = 

CHKSNT = 

NOCKSM = 

STATUS - 
BUFRFL = 

RECVDN = 

POKMSK = 

i HARDWARE REGISTERS USED IN SIO INTERRUPT ROUTINES 

SKRES = *D20A iSERIAL PORT STATUS RESET ON POKEY 

SEROUT = $D20D .SERIAL OUTPUT REGISTER 

SERIN = SEROUT ;SERIAL PORT INPUT REG ON POKEY 

IRQEN = $D20E ;IRQ INTERRUPT ENABLE ON POKEY 

SKSTAT = $D20F iSERIAL PORT STATUS REG ON POKEY 

; ERROR CODES RETURNED BY SIO 

FRMERR = *8C ;FRAMING ERROR ON INPUT 

OVRRUN = *8E iDATA FRAME OVER RUN-BIT D5 IN SKSTAT 

CHKERR = *8F )DATA FRAME CHECKSUM ERROR 


*32 ;POINTER TO BYTE TO SEND OR RECEIVE 

*33 

*34 iPOINTER TO BYTE AFTER END OF BUFFER 

*35 

*31 ;LOC TO STORE DATA FRAME CHECKSUM 

*3B i CHECKSUM SENT FLAG- =FF SENT 

*3C ; FLAG NO CHECK SUM TO BE RECEIVED-NOT ZE 

*30 (HOLD FOR STATUS TO BE PUT IN DCB 

*38 iFLAG-IF FF RECEIVE BUFFER IS FULL 

*39 ;FLAG RECEIVE NOT DONE. USED BY WAIT LOO 

*10 iPOKEY INTERRUPT MASK SHADOW FOR IRQEN 



RR 


LINE 

AD DR 

B 1 

B2 

B3 B4 


DISK 

UTILITY 

PROGRAMS (DUP) VER 2 9 11/18/80 PAGE 21 

319 







. PAGE 


B20 

821 






**** INTERRUPT SERVICE ROUTINE TO OUTPUT DATA NEEDED **** 

822 









S23 









824 






i 

IT UPDATES THE BYTE TO PUT ON SERIAL I/O BUS POINTER 

825 






J 

UNTIL 

END OF BUFFER. AFTER EACH UPDATE OF THE PTR ADDS THE 

326 







VALUE 

OF THE BYTE TO THE CHECKSUM. OUTPUTS THE CHECKSUM WHEN 

827 







PTR EQUALS THE END OF BUFFER PTR (POINTS TO BYTE AFTER BUFFER) 

328 







RETURNS TO THIS ROUTINE AFTER CHECKSUM PASSED AND RESETS POKEY 

829 







INTERRUPT REG TO HAVE THE TRANSMIT DONE ROUTINE CALLED TO END 

830 







WAIT LOOP (SEE SIO LISTING). 

831 









832 







K. B. 6/10/80 

833 









834 

19E6 

98 




ISRODN 

TYA 

> SAVE Y REG ON STACK 

835 

19E7 

48 





PHA 


836 





i 



837 

19E8 

E6 

32 




INC 

EUFRLO 

838 

19EA 

DO 

02 




BNE 

NOWRPO ; INCREMENT PTR TO NEXT BYTE 

839 

19EC 

E6 

33 




INC 

BUFRHI ;TO SEND 

840 









841 







PATCH 

TO ROUTINE - CHANGED CHECK 

842 









843 

19EE 

AS 

32 


NQWRPO 

LDA 

BUFRLO iCHECK IF PTR IS WITHIN BUFFER 

844 

19F0 

C5 

34 




CMP 

BFENLO ;DO A DOUBLE PRECISION SUBTRACT 

845 

19F2 

A5 

33 




LDA 

BUFRHI 

846 

19F4 

E5 

35 




SBC 

3FENHI 

847 

e48 

19F6 

90 

1A 




BCC 

NOTEND ;BRANCH IF (BUFR) C (BFEN)-MORE TO SEND 

849 

19F8 

A5 

3E 




LDA 

CHKSNT iTEST IF CHECKSUM ALREADY SENT 

850 

19FA 

DO 

09 




BNE 

RELONE ;BRANCH IF ALREADY SENT 

851 









852 







SEND CHECKSUM AND SET FLAG 

853 









854 

19FC 

AS 

31 




LDA 

CHKSUM 

855 

19FE 

8D 

OD 

D2 



STA 

SEROUT i PUT CHECKSUM IN SERIAL OUT REG 

856 

1A01 

C6 

3B 




DEC 

CHKSNT ;SET FLAG TO FF HEX 

857 

1A03 

DO 

09 




BNE 

CHKDON )RETURN 

858 









859 







AFTER 

CHECKSUM SENT AND CAUSE NEXT INTERRUPT THEN CHANGE POKEY 

860 







MASK TO ENABLE TRANSMIT DONE INTERRUPT AND TERMINATE WAIT LOOP 

861 









862 

1 AOS 

AS 

10 


RELQNE 

LDA 

POKMSK ;GET POKEY MASK 

863 

1A07 

09 

08 




ORA 

#*08 !OR IN ENABLE 

864 

1A09 

85 

10 




STA 

POKMSK 

865 

1 AOB 

8D 

OE 

D2 



STA 

IRQEN ; ENABLE THE INTERRUPTS 

866 





i 




e67 





'» 


RESTORE REGS AND RETURN 

868 





i 




869 

1A0E 

68 



CHKDON 

PLA 


870 

1AOF 

A8 





TAY 

;RESTORE Y REG 

871 

1A10 

68 





PLA 

,RESTORE A REG SAVED IN OS IRQ INTERRUPT 

S72 

1 A1 1 

40 





RTI 




ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) 'JFR P <9 11 /lB/Rn 


PAfir 


873 

874 

875 

876 

1A12 

AO 

00 


877 

1A14 

B1 

32 


878 

1A16 

8D 

OD 

D2 

879 

880 
881 

1A19 
1A1A 

18 

65 

31 


882 

1A 1C 

69 

00 


883 

1A1E 

85 

31 


884 

885 

1A20 

4C 

OE 

1A 

886 

887 







i MORE TO SEND. SEND NEXT BYTE POINTED AT BY BUFR. 

; 

NOTEND LDY #0 

LDA (BUFRLO) i Y ; GET NEXT BYTE 

STA SEROUT ; PUT IN SERIAL OUT REG 

r 

CLC 

ADC CHKSUM ; ADD BYTE TO CHECKSUM 

ADC #0 

STA CHKSUM 

r 

JMP CHKDON /GO RETURN AND WAIT FOR NEXT BYTE 

I 

i ******** END OF OUT SERVICE ROUTINE ******** 


ERR LINE ADDR 


B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 
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888 

889 

890 

891 

892 
393 

894 

895 

896 

897 

898 

899 

900 

901 

902 


PAGE 

7 **** SERIAL INPUT READY INTERRUPT SERVICE ROUTINE **** 


7 AFTER SERIAL RECEIVE IS ENABLED ROUTINE IS USED TO COLLECT 

r BYTES FROM THE SERIAL INPUT REG AND PUT THEM IN BUFFER. 

7 WILL STOP WHEN BUFFER IS FULL. IF A CHECKSUM IS EXPECTED 

? ROUTINE WILL MARK BUFFER FULL AND CONTINUE. WHEN CHECKSUM 

J RECEIVED IT WILL CHECK IF - TO CHECKSUM IT WAS MAKING, 

j WILL STORE ERRORS FOUND IN STATUS LOCATION. 

i 

i THE IRQ INTERRUPT HANDLER IN THE OS PUSHES THE USER'S A REGISTER 

/ ONTO THE STACK BEFORE CALLING THIS ROUTINE. 


903 

904 


K. B. 


6/11/80 


905 

1A23 

98 



ISRSIR 

TYA 


? SAVE Y REG ON STACK 

906 

1A24 

48 




PHA 



907 





r 




908 





r 

GET STATUS FROM POKEY 

THEN RESET IT. 

909 





i 




910 

1A25 

AD 

OF 

D2 


LDA 

SKSTAT 


911 

1A28 

8D 

OA 

D2 


STA 

SKRES 

f IGNORES VALUE” JUST STROBED 

912 





J. 




913 





i 

CHECK 

FOR ERRORS 


914 





J 




915 

1A2B 

30 

04 



BMI 

NTFRAM 

/BIT 8 SET IF NO FRAMING ERROR 

916 

1A2D 

AO 

ec 



LDY 

#FRMERR 


917 

1A2F 

84 

30 



STY 

STATUS 

iSET FRAME ERROR STATUS 

918 





r 




919 

1 A31 

29 

20 


NTFRAM 

AND 

#$20 

;IF BIT 5 CLEAR THEN FRAME OVER 

920 

1A33 

DO 

04 



BNE 

NTOVRN 

JBRANCH IF NO OVER RUN 

921 

1A35 

AO 

8E 



LDY 

#OVRRUN 


922 

1A37 

84 

30 



STY 

STATUS 

> ELSE SET OVERRUN ERROR STATUS 


923 


924 





CHECK 

IF BUFFER 

FULL AND THIS IS A CHECKSUM. IF IT IS, THEN 

925 




; 

CHECK 

IF DATA SENT WAS 

VALID. 

926 




/ 





927 

1A39 

A5 

38 

NTOVRN 

LDA 

BUFRFL 


;TEST FOR BUFFER FULL (NOT ZERO) 

928 

1A3B 

FO 

13 


BEQ 

NOTYET 


!IF ZERO THEN NOT YET/ THIS IS DATA. 

929 

1A3D 

AD 

OD D2 


LDA 

SERIN 


)ELSE THIS IS CHECKSUM 

930 

1A40 

C5 

31 


CMP 

CHKSUM 


;ARE THEY EQUAL? 

931 

1 A 42 

FO 

04 


BEQ 

SRETRN 


JYES,THEN RETURN 

932 

1A44 

AO 

8F 


LDY 

#CHKERR 


i ELSE SET CHECK SUM ERROR STATUS 

933 

1A46 

84 

30 


STY 

STATUS 



934 




} 





935 




J 

SET RECEIVE DONE 

TO END 

WAIT LOOP 

936 




J 





937 

1A48 

A9 

FF 

SRETRN 

LDA 

#$FF 


;DONE VALUE 

938 

1A4A 

85 

39 


STA 

RECVDN 



939 




/ 





940 




J 

RESTORE REGS AND 

RETURN 



941 



R L I NE 


ADDR El B2 B3 E4 


DISK UTILITY PROGRAMS <DUP) VER 2.9 11/18/80 
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v'LV 

1A4C 

’•'43 

1A4D 

■ 4 4 

1A4E 

94 5 

1A4F 

1 '4 6 


947 


948 


949 


950 

1A50 

953 

1A53 

952 

t A 55 

953 


v54 

1A 57 

955 

1A58 

956 

1A5A 

957 

1A5C 

958 


959 

1A5E 

960 

1A 60 

961 

1A62 

962 


963 


964 


965 

1A 64 

966 

1A66 

967 

i A68 

968 

1A6A 

969 

1A6C 

; '70 


9* / 1 

; i 7 


9 73 

1A6E 

974 

1A70 

975 


v 76 

1A72 

i f77 

1A74 

9'/8 

i A76 

9/9 


°80 


981 


982 

1A78 

983 

1 A7A 

984 


985 


986 

1A7C 

987 

1 A 70 

988 

001A 

989 

0070 

990 


991 

0700 

992 


993 

0100 

994 

070E 

995 

0001 


68 

A8 

68 

40 


AD OD D2 
AO 00 
91 32 

18 

65 31 
69 00 
85 31 

E6 32 
DO 02 
E6 33 


A5 32 
0 5 34 
A5 33 
E5 35 
90 DE 


A5 3C 
FO 06 

A9 00 
85 3C 
FO DO 


06 38 
DO DO 


70 1A 


SUSUAL PLA 

TAY ,RESTORE Y REG 
PLA jRESTORE A REG 
RTI 


IF BYTE IS DATA* THEN GET HERE. PUT BYTE IN BUFFER AND CHECK IF 
AT END OF BUFFER. 


NOTYET 

LDA 

SERIN 

)GET DATA BYTE 




LDY 

#0 





STA 

< BUFRLO)>Y 

iSTORE IT IN THE BUFFER 



J 

CLC 






ADC 

CHKSUM 

iADD DATA BYTE TO CHECKSUM 




ADC 

#0 





STA 

CHKSUM 




7 

INC 

BUFRLO 

;INCREMENT POINTER TO LOCATION 




BNE 

NTWRPl 

;FOR NEXT BYTE INPUT 




INC 

BUFRHI 




S 

i 

THE PATCH CHANGED THE 

TEST FOR END OF BUFFER 



NTWRPl 

LDA 

BUFRLO 

;DO DOUBLE PRECISION SUBTRACT 




CMP 

BFENLO 





LDA 

BUFRHI 





SBC 

BFENHI 

;CARRY CLEAR IF BORROW 




BCC 

SUSUAL 

- BRANCH IF <BUFR) < <BFEN)-WITHIN 

BUFFER 

‘ 

DONE 

WITH DATA. SEE IF 

CHECKSUM TO BE SENT 




LDA 

NOCKSM 

;IF = ZERO THEN A CHECKSUM 



} 

BEG 

GOON 

-WILL FOLLOW THE DATA 




LDA 

#0 

- ELSE NO CHECKSUM TO FOLLOW 




STA 

NOCKSM 

;CLEAR NO CHECKSUM FLAG 



; 

BEG 

SRETRN 

iRETURN AFTER SET RECEIVE DONE 

FLAG 

1 

SET BUFFER FULL AND THEN GO GET CHECKSUM 



GOON 

DEC 

BUFRFL 

i SET BUFFER FULL FLAG TO FF 



i 

BNE 

SUSUAL 

?GO RETURN 



p 

******** END of receive 

SERIAL INPUT INTERRUPT ROUTINE 


MDEND 

= 






HILO 

MDEND 




+MDENDH 

= 

MDEND/256 




+MDENDL 

- 

(-256)*MDENDH+MDEND 





$70C 





. BYTE 

MDENDL/MDENDH 

-SET END ADDR IN FMS PAST RES 

DUP 

SO 

J 



;BUFFERS DON'T CLOBBER IT. 



STAK 

= 

$100 





HILO 

STAK 




+STAKH 

= 

STAK/256 






ERR LINE 
996 


ADDR 51 B2 B3 B4 
0000 


DISK UTILITY PROGRAMS (DUP) VER 2.9 U/18/80 

+STAKL = (-256)*STAKH+STAK 


PAGE 


25 


LRR 


LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 26 


997 


998 


999 


1000 


1001 

1D7C 

1002 

07 OE 

1003 

001D 

1004 

007C 

1005 


1006 

1D7C 

1007 

1D7C 

1008 

00 ID 

1009 

007C 

1010 

UjM 

1011 

001D 

1012 

00A4 

1013 

1DF4 

1014 

1E74 

1015 

1DF1 

1016 

1EF4 

1017 

001D 

1018 

00F4 

1019 

1EF4 

1020 

00 IE 

1021 

0074 

1022 

1EF4 

1023 

00 ID 

1024 

00F1 

1025 

0000 

1026 

0001 

1027 

OOFA 

1028 

0000 

1029 

1EF4 

1030 

1EF5 

1031 

1EF6 

1032 

1EF7 

1033 

1EF8 

1034 

1EF9 

1035 

1EFE 

1036 

1EFF 

1037 

1F00 

1038 

1F01 

1039 

1F02 

1040 

1F03 

1041 

IF 04 

1042 

1F04 

1043 

1F06 

1044 

1F06 

1045 

1F08 

1046 

1F0A 

1047 

1 FOB 

1048 

1 FOB 

1049 

1F0C 

1050 

1FOC 


. PAGE 

; ******** BEGINNING OF NON-RESIDENT PORTION OF DUP ******** 

! 


NDQS 

= 

NDEND+$300 

END OF THE SYSTEM BUFFERS AND MINIDUP 


HILO 

NDQS 


+NDGSH 

= 

NDQS/256 


+NDQSL 

= 

< ~256 ) *NDOSH+NDQS 



NDQS 


PAR: 

. RES 

40 

.PARAMETER AREA 

PARH 

= 

PAR/256 


PARL 

- 

(—256)#PARH+PAR 


LINE: 

. RES 

80 

TYPE IN LINE BUFFER 

LBUFH 

= 

LINE/256 


LBUFL 


<-256)*LBUFH+LINE 

DBUF: 

. RES 

$100 

DATA BUFFER FOR COPY 

DB1 


DBUF+$80 


DB3 

- 

DBUF—3 



HILO 

DBUF 


+DBUFH 


DBUF/256 


+DBUFL 

= 

<“256)#DBUFH+DBUF 


HILO 

DB1 


+DB1H 

= 

DB1/256 


+DB1L 


< ~256)#DB1H+DB1 



HILO 

DB3 


+DB3H 

= 

DB3/256 


+ DB3L 

- 

<-256>*DB3H+DB3 


DBLL 

= 

0 


DBLH 

“ 

1 

DATA BUFFER LENGTH=$100 

EDBLL 

- 

$FA 

DATA BUFFER LENGTH USED IN USEPGM 

EDBLH 

“ 

0 

MUST BE A MULTIPLE OF 125, SECTOR DATA 

MENUSZ: 

RES 

1 


PER' 

. RES 

1 


UNNQ: 

. RES 

1 


RCNT: 

. RES 

1 


SSTAT: 

. RES 

1 


SWDP: 

. RES 

5 


CSRC: 

. RES 

1 


CDES: 

. RES 

1 


SAVX: 

. RES 

1 


PTR: 

. RES 

1 


IPTR: 

. RES 

1 


CTR: 

. RES 

1 


Tl: 

. RES 

2 


BUFLEN 

= 

Tl 

SAVE AREA FOR BUFR LEN, USED IN USEPGM 

STVEC: 

. RES 

2 

A TEMP OF SOME KIND 

MLT125 

= 

STVEC ; 

TEMP STORE FOR MULTIPLE OF 125, USEPGM 

SECSIZ: 

. RES 

2 i 

TO STORE SECT SIZE IN BYTES FOR DUP DSK 

EQFFLG: 

. RES 

1 ] 

ENDFILE FLAG FOR SOURCE IN DUPFIL 

FTRF: 

. RES 

1 ; 

FIRST TIME READ FLAG USED IN DUPFIL 

TWQDRV 

= 

FTRF iFLAG TO SHOW IF 1 OR 2 DRIVES. USED IN 

DTH 

ss* 




HILO 

n-»-u{ 





PAGE 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISK 

UTILITY PROGRAMS <DUP) VER 

1051 

00 IF 




+DTHH 

« DTH/256 

1052 

oooc 




+DTHL 

= (-256 > *DTHH+DTH 

1053 

1F0C 

45 

3A 

9B 

EDN 

.BYTE 'E: CR 

1054 

001F 




EDH 

= EDN/256 

1055 

OOOC 




EDL 

= (-256)*EDH+EDN 


9 11/18/80 


ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS <DUP) VER 2.9 11/18/80 


PAGE 


1056 

1057 

1058 

1059 


1060 

IF OF 

7D 




1061 

1F10 

44 

49 

53 

4B 

1062 

1F 14 

20 

4F 

50 

45 

1063 

1 FI 8 

52 

41 

54 

49 

1064 

IF 1C 

4E 

47 

20 

53 

1065 

1F20 

59 

53 

54 

45 

1 066 

IF 24 

4D 

20 

49 

49 

1067 

1F28 

20 

56 

45 

52 

1068 

1F2C 

53 

49 

4F 

4E 

1069 

1F30 

20 

32 

2E 

30 

1070 

1F34 

53 

9B 



1071 

1F36 

43 

4F 

50 

59 

1072 

1F3A 

52 

49 

47 

48 

1 073 

1F3E 

54 

20 

31 

39 

1074 

1F42 

38 

30 

20 

41 

1075 

IF 46 

54 

41 

52 

49 

1076 

1F4A 

9B 

9B 



1077 

1F4C 

41 

2E 

20 

44 

1078 

IF 50 

49 

53 

4B 

20 

1079 

1F54 

44 

49 

52 

45 

1080 

IF 58 

43 

54 

4F 

52 

1081 

1F5C 

59 

20 

49 

2E 

1082 

1F60 

20 

46 

4F 

52 

1083 

IF 64 

4D 

41 

54 

20 

1084 

1F68 

44 

49 

53 

4B 

1085 

1F6C 

9B 




1086 

1F6D 

42 

2E 

20 

52 

1087 

1F71 

55 

4E 

20 

43 

1088 

1F75 

41 

52 

54 

52 

1089 

1F79 

49 

44 

47 

45 

1090 

1F7D 

20 

20 

4A 

2E 

1091 

1F81 

20 

44 

55 

50 

1092 

1F85 

4C 

49 

43 

41 

1093 

1F89 

54 

45 

20 

44 

1094 

1F8D 

49 

53 

4B 

9B 


. PAGE 

, **** DOS MENU 

; 

y 

DMENU . BYTE CLSCR 

.BYTE 'DISK OPERATING SYSTEM II VERSION 2. OSCR 


.BYTE 'COPYRIGHT 1980 ATARI *, CRj CR 


BYTE 'A. DISK DIRECTORY I. FORMAT DISKLCR 


28 


. BYTE 


B. RUN CARTRIDGE U. DUPLICATE DISK'* CR 



ERR LINE AODR Bi B2 B3 B4 


DISK UTILITY PROGRAMS (DUP > VER 2.9 U/18/80 


PAGE 


29 


1095 

1096 1F91 

1097 1F95 

1098 1F99 

1099 1F9D 

1100 1FA1 

1101 1FAS 

1102 1FA9 

1103 IFAD 

1104 1FB1 

1105 1FB2 

1106 1FB6 

1107 1FBA 

1108 1FBE 

1109 1FC2 

1110 1FC6 

1111 ;fca 

1112 1FCE 

1113 1FD2 

1114 1FD3 

1115 1FD7 

1116 1FDB 

1117 1FDF 

1118 1FE3 

1119 1FE7 

1120 1FEB 

1121 1FEF 

1122 1FF3 

1123 1FF7 

1124 1FFB 

1125 1FFF 

1126 2003 

1127 2007 

1128 200B 

1129 200F 

1130 2013 

1131 2017 


43 2E 20 43 
4F 50 59 20 
46 49 40 45 
20 20 20 20 
20 20 4B 2E 
20 42 49 4E 
41 52 59 20 
53 41 56 45 
9B 

44 2E 20 44 

45 40 45 54 
45 20 46 49 

40 45 28 53 
29 20 40 2E 
20 42 49 4E 

41 52 59 20 
40 4F 41 44 
9B 

45 2E 20 52 
45 4E 41 4D 
45 20 46 49 

40 45 20 20 
20 20 4D 2E 
20 52 55 4E 
20 41 54 20 

41 44 44 52 

45 53 53 9B 

46 2E 20 40 
4F 43 4B 20 
46 49 40 45 
20 20 20 20 
20 20 4E 2E 
20 43 52 45 
41 54 45 20 
4D 45 4D 2E 
53 41 56 9B 


.BYTE '0. COPY FILE K. BINARY SAVE 7 , OR 


•BYTE 'D. DELETE FILECS) L. BINARY LOAD',OR 


.BYTE 'E. RENAME FILE M. RUN AT ADDRESS',OR 


.BYTE 'F. LOCK FILE N. CREATE MEM- SAVOR 


ERR LINE 

AD DR 

B1 

B2 

B3 

B4 

DISK UTILITY 

PROGRAMS (DUP > VER 2.9 11/18/80 PAGE 

1132 

1133 

20 IB 

47 

2E 

20 

55 


. BYTE 

'G. UNLOCK FILE 0. DUPLICATE FILE'.CR 

1134 

201F 

4E 

4C 

4F 

43 




1135 

2023 

4B 

20 

46 

49 




1136 

2027 

4C 

45 

20 

20 




1137 

202B 

20 

20 

4F 

2E 




1138 

202F 

20 

44 

55 

50 




1139 

2033 

4C 

49 

43 

41 




1140 

2037 

54 

45 

20 

46 




1141 

203B 

49 

4C 

45 

9B 




1142 

20 3F 

48 

2E 

20 

57 


. BYTE 

'H. WRITE DOS FILES', CR 

1143 

2043 

52 

49 

54 

45 




1144 

2047 

20 

44 

4F 

53 




1145 

204B 

20 

46 

49 

4C 




1146 

204F 

45 

53 

9B 





1147 

2052 

ID 

ID 

ID 

ID 


BYTE 

CDN, CDN, CDN, CDN, CDN 

1148 

2056 

ID 







1149 

2057 





DMEND 



1 150 

0148 





DULEN 

= 

DMEND-DMENU 

1151 

2057 






HILO 

DULEN 

1152 

0001 





+DULENH 

= 

DULEN/256 

1153 

0048 





+DULENL 

* 

(-256 > *DULENH+DULEN 

1154 

2057 






HILO 

DMENU 

1155 

001F 





+DMENUH 

= 

DMENU/256 

1156 

1157 

OOOF 





+DMENUL 

i 


(-256 > *DMENUH+DMENU 

1158 

1159 

2057 

205B 

39 

78 

21 

23 

EE 

C9 

26 

21 

DUJPT 

WORD 

DIREST, STCAR, CPYFIL, DELFIL, RENFIL, LKFIL, ULFIL. 

1160 

205F 

37 

26 

70 

29 




1161 

2063 

98 

29 






1162 

2065 

D9 

27 

80 

26 


WORD 

WBOGT,FMTDSK, DUPDSK, SAVFIL, LDFIL, BRUN, MEMSAV 

1163 

2069 

58 

2A 

2E 

2F 



^ J S K M M 

1164 

206D 

1A 

29 

4C 

27 



1165 

2071 

9A 

27 





O 

1166 

2073 

IE 

2D 




. WORD 

DUPFIL 

1167 

2075 






HILO 

DUUPT 

1168 

0020 





+DUUPTH 

= 

DUJPT/256 

1169 

0057 





+DUUPTL 


(-256)*DUUPTH+DUUPT 

1170 

OOOF 





DUNUM 

= 

15 iNUMBER OF FUNCTIONS 


30 


HR 


LINE 

1171 

1172 
1 1 73 
1 174 

1175 

1176 

1177 
1 178 

1179 

1180 
1181 
1182 
1 183 
1184 
1 185 
1186 
1 187 
1188 
1 189 

1190 

1191 
1 192 
1193 
1 194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 


ADDR B1 B2 B3 B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2 .9 

11/18/80 

PAGE 


. PAGE 
, **** DISK 

OPERATING SYS 

MONITOR 




2075 

A2 

FF 


DOSOS 

LDX 

#$FF 


2077 





HILO 

DOSOS 


0020 




+DOSOSH 

= 

D0S0S/256 


0075 




+DOSOSL 

as 

(-256)*D0S0SH+D050S 

2077 

D8 




CLD 


iMAKE SURE DECIMAL MODE OFF 

2078 

86 

11 



STX 

ERKKEY 


207A 

E8 




I NX 



207B 

8E 

9F 

15 


STX 

LOADFG 


20 7E 

A9 

02 



LDA 

#2 


2080 

85 

52 



STA 

LMARGN 


2082 

A9 

27 



LDA 

#39 


2084 

85 

53 



STA 

RMARGN 

iSET MARGINS 

2086 

A5 

10 



LDA 

POKMSK 

i ENABLE BREAK. INTERRRUPTS 

2088 

09 

80 



ORA 

#$80 


208A 

85 

10 



STA 

POKMSK 


208C 

8D 

OE 

D2 


STA 

IRQEN 


208F 

20 

76 

19 


JSR 

INITIO 

;CLOSE FILES 





> 

DISK 

UTILITY MONITOR 


2092 




DSKUTL 




2092 

A9 

OF 


DU1 

LDA 

#DUNUM 


2094 

8D 

F4 

IE 


STA 

MENUSZ 

i SET MENU SIZE 

2097 

A9 

57 



LDA 

#. LOW. DUJPTL 


2099 

85 

ie 



STA 

JMPTEL 


209B 

A9 

20 



LDA 

#. LOW. DUJPTH 


209D 

85 

19 



STA 

JMPTBL+1 

> SET UP JUMP TABLE ADDRESS 





i FALL 

THRU TO MENU SELECT 







J MENU SELECT 

MONITOR — VECTORS 

TO ROUTINE SELECTED FROM MENU 

209F 

A9 

OF 


SHMEN LDA 

#. LOW. DMENUL 

, GET MENU ADDRESS 

20 A1 

8D 

44 

03 

STA 

ICBAL 


20A4 

A9 

IF 


LDA 

#. LOW. DMENUH 


20A6 

8D 

45 

03 

STA 

ICBAH 


20A9 

A9 

48 


LDA 

#. LOW. DULENL 

, GET MENU LENGTH 

20AB 

8D 

48 

03 

STA 

ICBLL 


20AE 

A9 

01 


LDA 

#. LOW. DULENH 


20 BO 

8D 

49 

03 

STA 

ICBLH 


20B3 

20 

A3 

31 

JSR 

DSPMSG 

; SHOW MENU 


SELECT ITEM FROM MENU 


31 



ERR LINE 

ADDR 

Bi 

B2 

B3 B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2.9 11/1B/80 PAGE 22 

1219 





. PAGE 



1220 





, FUNCTIONS COME HERE 

WHEN THEY ARE DONE #■*** 

1221 





j 



1222 

20B6 

A2 

FF 


MENU5L LDX 

#$FF 

-’RESET STACK AT THIS POINT 

1223 

20 B 8 

9A 



TXS 



1224 

20B9 

E8 



I NX 



1225 

20BA 

8E 

41 

23 

STX 

WCFLAG 

-CLEAR WILD-CARD FLAG 

1226 

20BD 

A9 

1A 


LDA 

#. LOW. SITL 

-SELECT ITEM MESSAGE 

1227 

20BF 

A2 

21 


LDX 

#. LOW. SITH 


1228 

20C 1 

20 

BE 

19 

USR 

PRNTMSG 


1229 

20 C 4 

A9 

40 


LDA 

#$■40 

,MAKE SURE UPPER CASE 

1230 

20C6 

8D 

BE 

02 

STA 

SHFLOK 


1231 

20C9 

20 

7E 

30 

J8R 

CHRGET 

;GO GET KEYBOARD CHAR. 

1232 





i 



1233 

20CC 

C9 

9B 


CMP 

#CR 

>IF CR RE-DISPLAY MENU 

1234 

20CE 

FO 

OF 


BEQ 

SHMEN 


1235 





} 



1236 

20DO 

38 



SEC 



1237 

20D1 

E9 

41 


SBC 

# 'A 

iCONVRT ASCII CHAR. TO BINARY # & SUB 

1238 

20D3 

30 

2E 


BMI 

RANGE 

iIF ASCII CHAR NOT A #, GO READ AGAIN 

1239 

20D5 

CD 

F4 

IE 

CMP 

MENUSZ 

fIS THE # ENTERED > MENU SIZE? 

1240 

2008 

10 

29 


BPL. 

RANGE 

>IF YES, GO READ AGAIN. 

1241 

20DA 

OA 



ASL 

A 


1242 

20DB 

A8 



TAY 


(SET INDEX TO (MENU # - 1) * 2 

1243 

20DC 

Bl 

18 


LDA 

(UMPTBL),Y 


1244 

20DE 

CS 



I NY 



1245 

20 DF 

85 

1A 


STA 

RAMLO 

iGET STRING POINTER 

1246 

20E1 

31 

18 


LDA 

(UMPTBL).Y 


1247 

20E3 

85 

IB 


STA 

RAMLO+1 


1248 

20E5 

AO 

01 


LDY 

#1 

;LOAD STRING POINTER INTO REGISTERS 

1249 

20E7 

Bl 

1A 


LDA 

(RAMLO),Y 

;FOR DSPLIN 

1250 

20E9 

AA 



TAX 



1251 

20EA 

88 



DEY 



1252 

20EB 

Bl 

1A 


LDA 

(RAMLO),Y 


1253 

20ED 

20 

B5 

31 

USR 

DSPLIN 

)PRINT MODULES INITIAL STRING 

1254 

20F0 

20 

BB 

31 

USR 

SCROL 

iSCROLL INPUT WINDOW 

1255 

20F3 

A5 

1A 


LDA 

RAMLO 

;INC BY 2 TO POINT PAST STRING POINTER 

1256 

20F5 

18 



CLC 



1257 

20F6 

69 

02 


ADC 

#2 


1258 

20F8 

85 

1A 


STA 

RAMLO 


1259 

20FA 

A5 

IB 


LDA 

RAMLO+1 


1260 

20FC 

69 

00 


ADC 

#0 

;CARRY 

1261 

20FE 

85 

IB 


STA 

RAMLO+1 

;PUT HI BYTE. 

1262 

2100 

6C 

1A 

00 

UMP 

(RAMLO) 

iJUMP TO ROUTINE SELECTED BY MENU. 

1263 

2103 

A9 

OD 


RANGE LDA 

#.LOW.NSIL 


1264 

2105 

A2 

21 


LDX 

#. LOW. NSIH 


1265 

2107 

20 

B5 

31 

USR 

DSPLIN 

;NO SUCH ITEM MESSAGE 

1266 

210A 

4C 

B6 

20 

UMP 

MENUSL 



ERR LINE ADDR 


B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 33 


1267 

1268 

21OD 

4E 

4F 

20 

53 

1269 

2111 

55 

43 

48 

20 

1270 

2115 

49 

54 

45 

4D 

1271 

1272 

1273 

1274 

2119 

9B 




1275 

21 1A 

53 

45 

4C 

45 

1276 

21 IE 

43 

54 

20 

49 

1277 

2122 

54 

45 

4D 

20 

1278 

2126 

4F 

52 

20 

D2 

1279 

212A 

C5 

D4 

D5 

02 

1280 

212E 

CE 




1281 

212F 

20 

46 

4F 

52 

1282 

2133 

20 

4D 

45 

4E 

1283 

2137 

55 

9B 



1284 

2139 





1285 

0021 





1286 

OOOD 





1287 

2139 





1288 

0021 





1289 

001A 





1290 

20B6 





1291 

2139 





1292 

0020 





1293 

00B6 






. PAGE 

NS I .BYTE 'NO SUCH ITEM'.CR 


;PROMPT 

FOR MENU SELECTION OR REDISPLAY MENU - RETURN IS IN INVERSE 

SIT 

. BYTE 

'SELECT ITEM OR $D2, $C5, $04, $05, $D2, $CE 


. BYTE 

' FOR MENU',CR 


HILO 

NS I 

+NSIH 


NSI/256 

+NSIL 

- 

<-256>*NSIH+NSI 


HILO 

SIT 

+SITH 

- 

SIT/256 

+SITL 


<-256>*SITH+SIT 

MNSL 


MENUSL 


HILO 

MNSL 

+MNSLH 

- 

MNSL/256 

+MNSLL 

= 

<-256>*MNSLH+MNSL 


ERR LINE ADDR El B2 B3 E4 


DISK UTILITY PROGRAMS (DUP 


1294 .PAGE 

1295 i **** DIRECTORY LISTING 

1296 i 

1297 , 


1298 

2139 

A7 

21 


OIRLST .WORD 

DLMG 

1299 

213B 

20 

CF 

30 

JSR 

GETIC1 

1300 

21 3E 

20 

C4 

2E 

JSR 

USEBUF 

1301 

2141 

AE 

01 

IF 

LDX 

PTR 

1302 

2144 

A9 

9B 


LDA 

#CR 

1303 

2146 

90 

7B 

ID 

STA 

PAR-1, X 

1304 

2149 

BO 

7A 

10 

LDA 

PAR-2, X 

1305 

214C 

C9 

3A 


CMP 

#': 

1306 

214E 

DO 

18 


BNE 

GLF 

1307 

2150 

A9 

2A 


LDA 

# '* 

1308 

2152 

90 

7B 

ID 

STA 

PAR-1, X 

1309 

2155 

90 

70 

ID 

STA 

PAR+1,X 

1310 

2158 

A9 

2E 


LDA 

# 

1311 

215A 

90 

7C 

ID 

STA 

PAR, X 

1312 

2150 

A9 

9B 


LDA 

#CR 

1313 

215F 

90 

7E 

ID 

STA 

PAR+2,X 

1314 

2162 

E8 



INX 


1315 

2163 

EB 



INX 


1316 

2164 

E8 



INX 


1317 

2165 

8E 

01 

IF 

STX 

PTR 

1318 

2168 

8E 

00 

IF 

GLF STX 

SAVX 

1319 

216B 

A2 

20 


LDX 

#$20 

1320 

216D 

20 

DO 

31 

JSR 

PIOCB 

1321 

2170 

20 

E8 

30 

JSR 

GETFIL 

1322 

2173 

20 

C4 

30 

JSR 

PERX 

1323 

2176 

A9 

06 


LDA 

#6 

1324 

2178 

A2 

10 


LDX 

#$10 

1325 

21 7A 

90 

4A 

03 

STA 

ICAX1iX 

1326 

2170 

A9 

03 


LDA 

#QPEN 

1327 

217F 

90 

42 

03 

STA 

ICCQM,X 

1328 

2182 

8E 

FE 

IE 

STX 

CSRC 

1329 

2185 

EO 

10 


CPX 

#$10 

1330 

2187 

00 

01 


BNE 

#+3 

1331 

2189 

20 

EE 

31 

JSR 

CIOCL 

1332 

218C 

AD 

01 

IF 

LDA 

PTR 

1333 

218F 

38 



SEC 


1334 

2190 

EO 

00 

IF 

SBC 

SAVX 

1335 

2193 

C9 

03 


CMP 

#3 

1336 

2195 

FO 

03 


BEQ 

DLST1 

1337 

2197 

4C 

5E 

25 

DLSTO JMP 

POES 

1338 

219A 

AE 

00 

IF 

DLST1 LDX 

SAVX 

1339 

2190 

BD 

7C 

ID 

LDA 

PAR, X 

1340 

21 AO 

C9 

44 


CMP 

# 'D 

1341 

21A2 

DO 

F3 


BNE 

DLSTO 

1342 

21A4 

4C 

6C 

25 

JMP 

POES 1 



VER 2.9 11/18/80 


PAGE 


34- 


ROUTINE **** 

iINIT BUFADR & BUFLEN 

i ASSURE GOOD TERM 
;LAST CHAR OF SEARCH SPEC 
i IF COLON, ADD *. * 


; READ DIR INFO 

t OPEN 

;COPY SOURCE=DI RECTORY INFO 

; IF ONLY 3 CHARS, IS 'D: 'CR, USE DEFAULT 
iGO INTO COPY 

; GO INTO COPY WITH DES='E: ' 



PAGE 


35 


ERR LINE 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 


ADDR B1 


21A7 
21AB 
21 AF 
21B3 
21137 
21 BB 
21BF 
21C3 
21C7 


B2 B3 B4 


44 

49 

52 

45 

43 

54 

4F 

52 

59 

2D 

2D 

53 

45 

41 

52 

43 

48 

20 

53 

50 

45 

43 

2C 

4C 

49 

53 

54 

20 

46 

49 

4C 

45 

3F 

9B 




DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 

. PAGE 

DLMG BYTE 'DIRECTORY—SEARCH SPEC,LIST FILE?',CR 


ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/BO 


PAGE 


36 


1353 

1354 

1355 

1356 

1357 

21C9 

OD 

23 


1358 

21CB 

20 

CF 

30 

1359 

1360 

21 CE 

20 

C4 

30 

1361 

1362 

21D1 

20 

6E 

26 

1363 

1364 

1365 

21 D4 

AD 

7C 

ID 

1366 

21D7 

C9 

44 


1367 

21D9 

FO 

1A 


1368 

21 DB 

A9 

E5 


1369 

21DD 

A2 

21 


1370 

21 DF 

20 

B5 

31 

1371 

21E2 

4C 

B6 

20 

1372 

21E5 

4E 

4F 

54 

1373 

21E9 

41 

20 

44 

1374 

21 ED 

53 

4B 

20 

1375 

21F1 

49 

4C 

45 

1376 

21F5 




1377 

0021 




1378 

00E5 




1379 

21F5 

A2 

10 


1380 

21F7 

AD 

9E 

15 

1381 

21 FA 

C9 

4E 


1382 

21 FC 

DO 

OB 


1383 

21 FE 

A9 

21 


1384 

2200 

9D 

42 

03 

1385 

2203 

20 

EE 

31 

1386 

2206 

4C 

B6 

20 

1387 

2209 

A9 

F7 


1388 

220B 

A2 

22 


1389 

220D 

20 

B5 

31 

1390 

2210 

A9 

00 


1391 

2212 

8D 

02 

IF 

1392 

2215 

A2 

20 


1393 

2217 

A9 

21 


1394 

2219 

9D 

42 

03 

1395 

221C 

A9 

FI 


1396 

221E 

9D 

44 

03 

1397 

2221 

A9 

ID 


1398 

2223 

9D 

45 

03 

1399 

2226 

A9 

44 


1400 

2228 

8D 

FI 

ID 

1401 

222B 

A9 

3A 


1402 

222D 

8D 

F3 

ID 

1403 

2230 

AD 

7D 

ID 

1404 

2233 

C9 

3A 


1405 

2235 

DO 

02 


1406 

2237 

A9 

31 




DELETE 

FILE ROUTINE 



> 

DELFIL 

WORD 

JSR 

JSR 

DEMG 

GETIC1 

PERX 

iEXIT IF PARAM 

ERRORS 


JSR 

CHKVER 

;BE SURE THAT 

IT IS VER. 2 DISKETTE 

■ 

CONTINUE WITH DELETE - 

ALLOW ONLY FOR 

DISK DEVICE ID 

NDF 

LDA 

CMP 

BEQ 

LDA 

LDX 

JSR 

JMP 
. BYTE 

PAR / GET DEVICE 

JONLY ALLOW DELETE FOR D: 

DF1 

#. LOW. NDFL 
#. LOW. NDFH 

DSPLIN 

MENUSL 

'NOT A DISK FILE', CR 



HILO 

NDF 



+NDFH 


NDF/256 



+NDFL 

= 

<“25&>*NDFH+NDF 



DF 1 

LDX 

#$1G 




LDA 

OPT 




CMP 

#'N 

iIF OPTION=N, NO QUERY 



BNE 

DWQ 

iNO, DELETE WITH QUERY 



LDA 

#DELETE 




STA 

ICCOM, X 




JSR 

CIOCL 




JMP 

MENUSL 



DWQ 

LDA 

#. LOW. TYQL 




LDX 

#. LOW. TYQH 




JSR 

DSPLIN 

iSAY TYPE Y TO DELETE. . . 



LDA 

#0 




STA 

IPTR 

> HOW MANY FILES TO SKIP, 

NONE AT FIRST 


LDX 

#$20 

>SET UP DELETE IOCB 



LDA 

#DELETE 




STA 

ICCOM, X 




LDA 

#. LOW. DB3L 




STA 

ICBAL, X 




LDA 

#. LOW. DB3H 




STA 

ICBAH, X 




LDA 

# 'D 




STA 

DBUF-3 




LDA 

# 




STA 

DBUF-1 




LDA 

PAR+1 

;DEVICE NUMBER OR : FROM 

OP INPUT 


CMP 

# ': 




BNE 

#+4 




LDA 

#'l 




ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2.9 11/18/80 PAGE 

1407 

2239 

8D 

F2 

ID 

STA 

DBUF-2 

> KLUDGE KLUDGE KLUDGE 

1408 

223C 

A2 

10 


IDRD LDX 

#$10 


1409 

223E 

A9 

03 


LDA 

#QPEN 


1410 

2240 

9D 

42 

03 

STA 

ICCOMiX 


1411 

2243 

A9 

06 


LDA 

#6 


1412 

2245 

9D 

4A 

03 

STA 

ICAX1,X 

/DIR READ OPEN 

1413 

2248 

A9 

70 


LDA 

#PARL 


1414 

224A 

9D 

44 

03 

STA 

ICBAL,X 


1415 

22 4D 

A9 

ID 


LDA 

#PARH 


1416 

224F 

9D 

45 

03 

STA 

ICBAH, X 


1417 

2252 

20 

EE 

31 

JSR 

CIOCL 


1418 

2255 

A9 

F4 


LDA 

#. LOW. DBUFL 


1419 

2257 

9D 

44 

03 

STA 

ICBALiX 


1420 

22 5A 

A9 

ID 


LDA 

#. LOW. DBUFH 


1421 

22 5C 

9D 

45 

03 

STA 

ICBAH/ X 


1422 

225F 

A9 

05 


LDA 

#GETREC 


1423 

2261 

9D 

42 

03 

STA 

ICCQM/ X 


1424 

2264 

A9 

00 


LDA 

#0 


1425 

2266 

8D 

01 

IF 

STA 

PTR 

i HOW MANY FILES WE HAVE SKIPPED 

1426 








1427 





, READ FILENAME FROM DIR, QUERY AND DELETE 

1428 





i 



1429 

2269 

A2 

10 


RDFN LDX 

#$10 


1430 

226B 

A9 

00 


LDA 

#0 


1431 

226D 

9D 

48 

03 

STA 

ICBLL/X 


1432 

2270 

A9 

01 


LDA 

#1 


1433 

2272 

9D 

49 

03 

STA 

ICBLH/ X 


1434 

2275 

20 

EE 

31 

JSR 

CIOCL 

/READ A LINE FROM DIRECTORY 

1435 

2278 

AD 

F5 

ID 

LDA 

DBUF+1 

J IF FILE LINE, THIS IS BLANK 

1436 

227B 

C9 

20 


CMP 

# ' 


1437 

227D 

DO 

68 


BNE 

DELX 

;THIS IS FREE BLOCKS LINE 

1438 

227F 

EE 

01 

IF 

INC 

PTR 

jCOUNT THIS FILE 

1439 

2282 

AD 

01 

IF 

LDA 

PTR 

i HAVE WE SKIPPED ENUF YET 

1440 

2285 

CD 

02 

IF 

CMP 

IPTR 


1441 

2288 

30 

DF 


BMI 

RDFN 

i BR IF NO 

1442 

228A 

A2 

00 


LDX 

#0 

iPUT PTR 

1443 

228C 

AO 

02 


LDY 

#2 

;GET PTR 

1444 





r 



1445 





T MESSAGE DELETE FILE NAMES 


1446 





r 



1447 

228E 

B9 

F4 

ID 

MDN1 LDA 

DBUF,Y 


1448 

2291 

09 

20 


CMP 

#' 

i end of filename 

1449 

2293 

FO 

09 


BEG 

MDN2 


1450 

2295 

9D 

F4 

ID 

STA 

DBUF,X 


1451 

2298 

E8 



INX 



1452 

2299 

08 



INY 



1453 

229A 

EO 

08 


CPX 

#8 


1454 

2290 

30 

FO 


BMI 

MDN1 


1455 





j 



1456 





i FILENAME IS 

MOVED, PUT . EXT 


1457 





i 



1458 

229E 

A9 

2E 


MDN2 LDA 

#'. 


1459 

22 AO 

9D 

F4 

ID 

STA 

DBUF,X 


1460 

22A3 

E8 



INX 





LINE 

ADDR 

B 1 

B2 

B3 

B4 

DISK 

UTILITY 

PROGRAMS CDUP) VER 2.9 11/18/80 

PAGE 38 

1461 

22A4 

AO 

OA 




LDY 

#10 i WHERE EXT IS 


1462 

22A6 

B9 

F4 

ID 


MDN3 

LDA 

DBUF,Y 


1463 

22A9 

9D 

F4 

ID 



STA 

DBUF, X 


1464 

22AC 

C8 





INY 



1465 

22AD 

E8 





I NX 



1466 

22 AE 

CO 

00 




CPY 

#13 


1467 

22B0 

30 

F4 




BMI 

MDN3 


1468 

22B2 

8E 

00 

IF 



STX 

SAVX fPUT CR HERE LATER 


1469 

22B5 

A9 

3F 




LDA 

#'? /FOR QUERY 


1470 

22B7 

90 

F4 

ID 



STA 

DBUF,X 


1471 

22BA 

E8 





INK 



1472 

22BB 

A9 

9B 




LDA 

#CR 


1473 

22BD 

90 

F4 

ID 



STA 

DBUF,X 


1474 

22 CO 

A9 

FI 




LDA 

#. LOW. DB3L 


1475 

22C2 

A2 

ID 




LDX 

#. LOW. DB3H 


1476 

22C4 

20 

B5 

31 



USR 

DSP LIN i GO ASK ABOUT THIS FILE 


1477 

22 C 7 

20 

7E 

30 



JSR 

CHRGET 


1478 

22CA 

C9 

59 




CMP 

#'Y 


1479 

22CC 

DO 

9B 




BNE 

RDFN )GO DO NEXT FILENAME 


1480 

22CE 

AD 

01 

IF 



LDA 

PTR JNUMBER FILES WE HAVE GONE 

THRU SO FAR 

1481 

22D1 

80 

02 

IF 



STA 

IPTR i IS NEW NUMBER TO SKIP. 


1482 

22D4 

AE 

00 

IF 



LDX 

SAVX 


1483 

2207 

A9 

9B 




LDA 

#CR 


1484 

2209 

90 

F4 

ID 



STA 

DBUF,X 


1485 

22DC 

A2 

20 




LDX 

#$20 jDELETE IOCB 


1486 

22DE 

20 

EE 

31 



USR 

CIOCL 


1487 

22E1 

20 

ED 

22 



USR 

CL0S1 


1488 

22 E 4 

4C 

3C 

22 



UMP 

IDRD >CLOSE AND REOPEN DIR READ 

FILE 

1489 

22E7 

20 

ED 

22 


DELX 

USR 

CLOS1 iCLOSE DIR READ FILE 


1490 

22EA 

4C 

B6 

20 



UMP 

MENUSL 


1491 

22ED 

A2 

10 



CLDS1 

LDX 

#$10 


1492 

22EF 

A9 

GC 




LDA 

#CLOSE 


1493 

22F1 

90 

42 

03 



STA 

ICCOM, X 


1494 

22F4 

4C 

EE 

31 



UMP 

CIOCL fDO CLOSE AND RETURN 


1495 

22F7 

54 

59 

50 

45 

TVQ 

. BYTE 

'TYPE ',$22, ' Y , $22, ' TO DELETE... ',CR 


1496 

22FB 

20 

22 

59 

CL, CL, 





1497 

22 FF 

20 

54 

4F 

20 





1498 

2303 

44 

45 

4C 

45 





1499 

2307 

54 

45 

2E 

2E 





1500 

230B 

2E 

9B 







1501 

2300 






HILO 

TYG 


1502 

0022 





+TYGH 

== 

TYG/256 


1503 

00F7 





+ TYGL 

SB 

(“256 > tf-TYGH+TYG 


1504 

2300 

44 

45 

4C 

45 

DENG 

. BYTE 

'DELETE FILE SPEC',CR 


1505 

2311 

54 

45 

20 

46 





1506 

2315 

49 

4C 

45 

20 





1507 

2319 

53 

50 

45 

43 





1508 

2310 

9B 








1509 






; LIST 





ERR LINE- 

ADDR 

B1 

B2 

B3 

B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2. 9 11/18/80 

PAGE 39 

1510 







. PAGE 




1511 






i **** 

COPY 

FILE ROUTINE 



1512 






J 





1513 






J 





1514 

231E 

43 

4F 

50 

59 

CPMG 

. BYTE 

'COPY—FROM# 

TO?', OR 


1515 

2322 

2D 

2D 

46 

52 






1516 

2326 

4F 

4D 

20 

20 






1517 

232A 

54 

4F 

3F 

9B 






1518 

232E 

4F 

50 

54 

49 

□E 

. BYTE 

'OPTION NOT 

ALLOWED'jCR 


1519 

2332 

4F 

4E 

20 

4E 






1520 

2336 

4F 

54 

20 

41 






1521 

233A 

40 

40 

4F 

57 






1522 

233E 

45 

44 

9B 







1523 

2341 






HILO 

OE 



1524 

0023 





+OEH 

= 

OE/256 



1525 

002E 





+QEL 


<-256)*0EH+0E 



1526 






j 





1527 






i 





1528 






i 





1529 






i 





1530 






i 





1531 

2341 





WCFLAG: 

. RES 

1 



1532 

2342 





WCSKP1: 

. RES 

1 



1533 

2343 





WCSKP2: 

. RES 

1 



1534 

0014 





WCBUFL 

as 

20 



1535 

2344 





WCBUF: 

. RES 

WCBUFL 



1536 

2358 

20 

20 

43 

4F 

WCQPYM 

. BYTE 

' COPYING— 

_ / 


1537 

2350 

50 

59 

49 

4E 






1538 

2360 

47 

2D 

2D 

2D 






1539 

2364 

44 

4E 

3A 


WCBUF2 

. BYTE 

'DN: ' 



1540 

2367 






. RES 

WCBUFL-3 



1541 

2378 

IE 

23 



CPYFIL 

. WORD 

CPMG 

.COPY FILE PROMPT 


1542 

237A 

20 

OF 

30 



JSR 

GETIC1 

»GET SOURCE DEVICE, ETC. 


1543 

237D 

AD 

01 

IF 



LDA 

PTR 



1544 

2380 

8D 

00 

IF 



STA 

SAVX 



1545 

2383 

AD 

70 

ID 



LDA 

PAR 

iGET 1ST CHAR. OF DEVICE 


1546 

2386 

09 

44 




CMP 

#'D 

JTEST IF IT IS THE DISK 


1547 

2388 

DO 

07 




BNE 

JMPNWC 

;BR IF NOT THE DISK (THEN USE OLD CODE) 

1548 

238A 

A2 

00 




LDX 

#0 

iLOOK AT SOURCE FILE SPEC. 


1549 

2380 

20 

D7 

2E 



JSR 

LQQKWC 

iLOOK FOR WILDCARDS IN FILE 

SPEC. 

1550 

238F 

FO 

03 




BEG 

CPYFL1 

i BRANCH IF WILDCARDS USED Iis, 

DISK SPEC. 

1551 

2391 

40 

El 

24 


JMPNWC 

JMP 

NOTWC 

iUSE OLD CODE 


1552 

2394 

A9 

80 



CPYFL1 

LDA 

#*80 



1553 






; 





1554 






i 





1555 

2396 

8D 

41 

23 


WO INIT 

STA 

WCFLAG 

; 'WLDCARD' MODE (COPY-FILE 

OR DUP-FIL 

1556 

2399 

A9 

00 




LDA 

#0 



1557 

239B 

8D 

42 

23 



STA 

WCSKP1 



1558 






i 





1559 

239E 

A9 

00 



WCQPYL 

LDA 

#0 



1560 

23A0 

8D 

43 

23 



STA 

WCSKP2 



1561 

23A3 

A2 

10 




LDX 

#*10 

i OPEN DIRECTORY 


1562 

23A5 

A9 

06 




LDA 

#6 



1563 

23A7 

9D 

4A 

03 



STA 

ICAXl,X 






ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 


40 


1564 

23AA 

A9 

03 


LDA 

#OPEN 

1565 

23AC 

9D 

42 

03 

STA 

ICCOM,X 

1566 

23AF 

A9 

7C 


LDA 

#. LOW. PAR 

1567 

23B1 

9D 

44 

03 

STA 

ICBAL,X 

1568 

23B4 

A9 

ID 


LDA 

#. HIGH. PAR 

1569 

23B6 

9D 

45 

03 

STA 

ICBAH,X 

1570 

23B9 

20 

EE 

31 

JSR 

CIOCL 

1571 





i 


1572 





} 


1573 

23BC 

A9 

05 


WCOPYR LDA 

#GETREC 

1574 

23 BE 

9D 

42 

03 

STA 

ICCOM,X 

1575 

23C 1 

A9 

14 


LDA 

#WCBUFL 

1576 

23C3 

9D 

48 

03 

STA 

IC3LL,X 

1577 

23C6 

A9 

00 


LDA 

#0 

1578 

23C8 

9D 

49 

03 

STA 

ICBLH, X 

1579 

23CB 

A9 

44 


LDA 

#. LOW. WCBUF 

1580 

23CD 

9D 

44 

03 

STA 

ICBAL,X 

1581 

23D0 

A9 

23 


LDA 

#.HIGH.WCBUF 

1582 

23D2 

9D 

45 

03 

STA 

ICBAH,X 

1583 

23D5 

20 

EE 

31 

JSR 

CIOCL 

1584 





i 


1585 

23 D 8 

AD 

44 

23 

LDA 

WCBUF 

1586 

23DB 

C9 

30 


CMP 

# '0 

1587 

23DD 

90 

OF 


BCC 

WCGOT 

1588 

23DF 

C9 

3A 


CMP 

# 

1589 

23E1 

BO 

OB 


BCS 

WCGOT 

1590 





i 


1591 

23E3 

A9 

oc 


LDA 

#CLOSE 

1592 

23E5 

9D 

42 

03 

STA 

ICCOM, X 

1593 

23E8 

20 

EE 

31 

JSR 

CIOCL 

1594 

23EB 

4C 

B6 

20 

JMP 

MENUSL 

1595 





! 


1596 







1597 

23EE 

AD 

42 

23 

WCGOT LDA 

WCSKP1 

1598 

23F1 

CD 

43 

23 

CMP 

WCSKP2 

1599 

23F4 

FO 

05 


BEG 

SKIP 1 

1600 





- 


1601 

23F6 

EE 

43 

23 

INC 

WCSKP2 

1602 

23F9 

DO 

Cl 


BNE 

WCOPYR 

1603 





; 


1604 

23FB 

EE 

42 

23 

SKIP1 INC 

WCSKP1 

1605 





; 


1606 

23FE 

A9 

OC 


LDA 

#CLOSE 

1607 

2400 

9D 

42 

03 

STA 

ICCOM, X 

1608 

2403 

20 

EE 

31 

JSR 

CIOCL 

1609 







1610 





i 


1611 

2406 

AO 

02 


LDY 

#2 

1612 

2408 

B9 

4E 

23 

SYSLQP LDA 

WCBUF+1Q,Y 

1613 

240B 

D9 

15 

24 

CMP 

DOTSYS,Y 

1614 

240E 

DO 

08 


BNE 

NOSYS 

1615 

2410 

88 



DEY 


1616 

2411 

10 

F5 


BPL 

SYSLQP 

1617 

2413 

30 

89 


BMI 

WCOPYL 


; READ DIRECTORY 


IF 1ST CHAR. OF DIR READ IS A #-IT IS T 


< ALL DONE — NORM EXIT OF WILDCARD COPY 


IF ALREADY COPIED OR SKIPPED THIS FILE 


; CLOSE DIRECTORY READ FILE 


.DON'T COPY SYS FILES 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISK i 

UTILITY 

PROGRAMS (DUP) 

1618 





i 



1619 

2415 

53 

59 

53 

DOTSYS 

. BYTE 

'SYS' 

1620 





i 



1621 

2418 

AO 

31 


NOSYS 

LDY 

#'l 

1622 

241A 

AD 

7D 

ID 


LDA 

PAR+1 

1623 

241D 

C9 

3A 



CMP 

#': 

1624 

24 IF 

FO 

01 



BEG 

WCG0T1 

1625 

2421 

AS 




TAY 


1626 

2422 

80 

65 

23 

WCG0T1 

STY 

WCBUF2+1 

1627 








1628 





i 



1629 

2425 

A2 

02 



LDX 

#2 

1630 

2427 

AO 

03 



LDY 

#3 

1631 





i 



1632 

2429 

BD 

44 

23 

C0MPR1 

LDA 

WCBUF,X 

1633 

242C 

09 

20 



CMP 

#' 

1634 

242E 

FO 

04 



BEG 

C0MPR2 

1635 

2430 

99 

64 

23 


STA 

WCBUF2,Y 

1636 

2433 

08 




I NY 


1637 





} 



1638 

2434 

E8 



C0MPR2 

INX 


1639 

2435 

EO 

OA 



CPX 

#10 

1640 

2437 

DO 

FO 



BNE 

C0MPR1 

1641 





1 



1642 

2439 

BD 

44 

23 


LDA 

WCBUF» X 

1643 

243C 

09 

20 



CMP 

#' 

1644 

243E 

FO 

16 



BEG 

C0MPR5 

1645 

2440 

A9 

2E 



LDA 

#' 

1646 

2442 

99 

64 

23 


STA 

WCBUF2, Y 

1647 

2445 

08 




INY 


1648 

2446 

BD 

44 

23 

C0MPR3 

LDA 

WCBUFi X 

1649 

2449 

09 

20 



CMP 

#' 

1650 

244B 

FO 

04 



BEG 

C0MPR4 

1651 

244D 

99 

64 

23 


STA 

WCBUF2,Y 

1652 

2450 

08 




INY 


1653 

2451 

E8 



C0MPR4 

INX 


1654 

2452 

EO 

OD 



CPX 

#13 

1655 

2454 

DO 

FO 



BNE 

C0MPR3 

1656 





, 



1657 

2456 

A9 

9B 


C0MPR5 

LDA 

#CR 

1658 

2458 

99 

64 

23 


STA 

WCBUF2, Y 

1659 








1660 








1661 

24 5B 

A9 

58 



LDA 

#. LOW, WCOPYM 

1662 

245D 

A2 

23 



LDX 

#. HIGH. WCOPYM 

1663 

245F 

20 

B5 

31 


JSR 

DSPLIN 

1664 





i 



1665 

2462 

20 

41 

23 


BIT 

WCFLAG 

1666 

2465 

50 

OF 



BVC 

WCOPY 

1667 





T 



1668 

2467 

A2 

10 



LDX 

#$10 

1669 

2469 

A9 

64 



LDA 

#. LOW. WCBUF2 

1670 

246B 

9D 

44 

03 


STA 

ICBAL,X 

1671 

246E 

A9 

23 



LDA 

#. HIGH. WCBUF2 


VER 2.9 11/18/80 PAGE 41 


i CALC SOURCE DRIVE NUMBER 


i COMPRESS SPACES, ADD ADD 'CR ' 


;PRINT 'COPYING-DEV:FILENAME. EXT' MSG 

;BR TO MIDDLE OF DUP FILE ROUTINE IF DU 
i SET UP BUFR ADDR TO PNT TO WLDCARD FIL 


ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS CDUP) VER 2.9 11/18/80 


PAGE 


42 


1672 

2470 

9D 

45 

03 


STA 

ICBAH,X 


1673 

2473 

4C 

4F 

2D 


JMP 

WCDUPS 


1674 









1675 

2476 

20 

41 

2E 

WCOPY 

JSR 

USEPGM 

;SET BUFFER SIZES 

1676 

2479 

A2 

10 



LDX 

#*10 

;OPEN COPY SOURCE FILE 

1677 

247B 

A9 

03 



LDA 

#QPEN 


1678 

247D 

9D 

42 

03 


STA 

ICCOM,X 


1679 

2480 

A9 

04 



LDA 

#4 


1680 

2482 

9D 

4A 

03 


STA 

ICAX1, X 


1681 

2485 

A9 

64 



LDA 

#. LOW. WCBUF2 


1682 

2487 

9D 

44 

03 


STA 

ICBAL;X 


1663 

248A 

A9 

23 



LDA 

#. HIGH. WCBUF2 


1684 

248C 

9D 

45 

03 


STA 

ICBAH* X 


1685 

248F 

8E 

FE 

IE 


STX 

CSRC 


1686 

2492 

20 

EE 

31 


JSR 

CIQCL 


1687 





) 




1688 

2495 

A2 

20 



LDX 

#*20 


1689 

2497 

20 

DD 

31 


JSR 

PIOCB 

;GET COPY DESTINATION FILE 

1690 

249A 

AD 

01 

IF 


LDA 

PTR 

;SAVE PTR,IPTR- MIGHT REPET GETTING 2ND 

1691 

249D 




MES 




1692 

249D 

48 




PHA 



1693 

249E 

AD 

02 

IF 


LDA 

IPTR 


1694 

24A1 

48 




PHA 



1695 

24A2 

20 

E8 

30 


JSR 

GETFIL 

;GET 2ND FILE NAME TO PAR 

1696 

24A5 

68 




PLA 


;RECOVER IPTR,PTR 

1697 

24A6 

8D 

02 

IF 


STA 

IPTR 


1698 

24A9 

68 




PLA 



1699 

24AA 

8D 

01 

IF 


STA 

PTR 


1700 

24AD 

AE 

00 

IF 


LDX 

SAVX 


1701 

24B0 

SD 

7C 

ID 


LDA 

PAR; X 


1702 

24B3 

C9 

44 



CMP 

# 'D 


1703 

24B5 

FO 

03 



BEQ 

WCOPYO 


1704 

24B7 

4C 

5E 

25 


JMP 

PDES 

;JMP TO OLD CPY-FILE CODE IF NOT DSK DES 

1705 





j 




1706 

24BA 

AO 

31 


WCOPYO 

LDY 

#'l 

;CALCULATE DESTINATION DRIVE # 

1707 

24BC 

BD 

7D 

ID 


LDA 

PAR+1,X 


1708 

24BF 

C9 

3A 



CMP 

#': 


1709 

24C 1 

FO 

01 



BEQ 

WC0PY1 


1710 









1711 

24C3 

A8 




TAY 



1712 

24C4 

CC 

65 

23 

WC0PY1 

CPY 

WCBUF2+1 


1713 

24C7 

DO 

06 



3NE 

WC0PY2 


1714 

24C9 

20 

AA 

19 


JSR 

CLOSX 

iCANT COPY TO SAME DRVE NMBR - ERR & EX I 

1715 





j 




1716 

24CC 

4C 

74 

25 


JMP 

ODMS 


1717 





; 




1718 





; 




1719 

24CF 

A2 

20 


WCQPY2 

LDX 

#*20 


1720 

24D1 

8C 

65 

23 


STY 

WCBUF2+1 

iCHANGE FILESPEC TO DESTINATION 

1721 

24D4 

A9 

64 



LDA 

#. LOW. WCBUF2 


1722 

24D6 

9D 

44 

03 


STA 

ICBAL, X 


1723 

24D9 

A9 

23 



LDA 

#. HIGH. WCBUF2 


1724 

24DB 

9D 

45 

03 


STA 

ICBAH, X 


1725 

24 DE 

4C 

94 

25 


JMP 

0PDES1 

)CONTINUE INTO OLD COPY-FILE CODE 


ERR LINE 

AD DR 

B1 

B2 

B3 

B4 

DISK 

UTILITY 

PROGRAMS (DUP) 

VER 2.9 11/18/80 PAGE 43 

1726 






i 




1727 










1 728 

24E1 





NGTWC 

= 

* 


1729 

24E1 

A2 

20 




LDX 

#*2G 

iIOCB 3 

1730 

24E3 

20 

DD 

31 



JSR 

P IOCB 


1731 

24E6 

20 

E8 

30 



JSR 

GETFIL 

f GET SECOND FILENAME 

1732 






> 




1733 






) 

MAKE 

SURE DESTINATION 

IS NOT DOS. SYS 

1734 






1 




1735 

24E9 

AE 

00 

IF 



LDX 

SAVX 

-ENTRY-INDEX TO DEST FILE SPEC 

1 736 

24EC 

20 

ED 

2E 



JSR 

TSTDOS 

iWON'T RETURN IF IS DOS. SYS 

1737 






$ 




1738 

24EF 

AE 

00 

IF 



LDX 

SAVX 


1739 

24F2 

20 

D7 

2E 



JSR 

LQQKWC 


1740 

24F5 

DO 

30 




BNE 

NWCIND 

;BRANCH IF NO WILDCARDS IN DESTINATION 

1741 

24F7 

A9 

01 




LDA 

#. LOW. NWAL 


1742 

24F9 

A2 

25 




LDX 

#. LOW. NWAH 


1743 

24FB 

20 

B5 

31 



JSR 

DSPLIN 


1744 

24FE 

4C 

B6 

20 



JMP 

MENUSL 


1745 

2501 

57 

49 

4C 

44 

NWA 

. BYTE 

'WILD CARDS NOT ALLOWED IN DESTINATION\CR 

1746 

2505 

20 

43 

41 

52 





1747 

2509 

44 

53 

20 

4E 





1748 

250D 

4F 

54 

20 

41 





1749 

2511 

40 

4C 

4F 

57 





1750 

2515 

45 

44 

20 

49 





1751 

2519 

4E 

20 

44 

45 





1752 

25 ID 

53 

54 

49 

4E 





1753 

2521 

41 

54 

49 

4F 





1754 

2525 

4E 

9B 







1755 

2527 






HILO 

NWA 


1756 

0025 





+NWAH 

= 

NWA/256 


1757 

0001 





+NWAL 


<-256)*NWAH+NWA 

1758 

2527 





NWCIND 

= 

■* 


1759 

2527 

20 

C4 

30 



JSR 

PERX 

,IF PARAM ERRS, EXIT 

1760 

2 52A 

20 

41 

2E 



JSR 

USEPGM 

;ASK USR IF CAN USE PGM AREA OR DATA BFR 

1761 

252D 





PSRC 

= 



1762 

252D 

AD 

7C 

ID 



LDA 

PAR 

;GET 1ST LETR OF PARAM 

1763 

2530 

C9 

4B 




CMP 

# 'K 


1764 

2532 

FO 

40 




BEQ 

ODMS 

;K:GETS 'OPTION DOESNT MAKE SENSE' FOR N 

1765 

2534 

C9 

43 




CMP 

# 'C 


1766 

2536 

FO 

3C 




BEQ 

ODMS 

; C. GETS 'OPTION DOESNOT MAKE SENSE ' FOR 

1 767 

2538 

C9 

45 




CMP 

#'E 

i E' AS SOURCE IS SPECIAL 

1768 

253A 

DO 

08 




BNE 

OPSRC 

; IF NO THEN OPEN SOURCE FILE 

1769 

253C 

A2 

00 




LDX 

#0 


1770 

253E 

8E 

FE 

IE 



STX 

CSRC 


1771 

2541 

4C 

5E 

25 



JMP 

PDES 


1772 

2544 

C9 

53 



OPSRC 

CMP 

#'S 


1773 

1 774 

2546 

FO 

2C 




BEQ 

ODMS 

, S: AS SOURCE GETS 0. D. M. S. FOR NOW 

1775 






F 

OPEN SOURCE FILE 


1776 






E 




1777 

2548 

A2 

10 




LDX 

#*1G 


1778 

254A 

A9 

03 




LDA 

#OPEN 


1779 

254C 

9D 

42 

03 



STA 

ICCOM/ X 



ERR LINE ADDR El B2 B3 B4 
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1780 

254F 

A9 

04 



LDA 

#4 

, OPEN IN 

1781 

2551 

9D 

4A 

03 


STA 

ICAX 1, X 


1782 

2554 

BE 

FE 

IE 


STX 

CSRC 


1783 

2557 

EO 

10 



CPX 

#$10 


1784 

2559 

DO 

IF 



BNE 

*+33 


1785 

255B 

20 

EE 

31 


JSR 

CIOCL 

iOPEN SOURCE FILE HERE 

1786 





J 




1787 





i 

READY 

FOR OPEN OF DESTINATION 

1788 









1789 

255E 

AE 

00 

IF 

PDES 

LDX 

SAVX 


1790 

2561 

ED 

7C 

ID 


LDA 

PAR, X 


1791 





j 




1792 

2564 

C9 

4B 



CMP 

#'K 

,IS DEST KEYBOARD? 

1793 

2566 

FO 

OC 



BEG 

ODMS 

/YES, THEN CAN'T DO IT 

1794 









1795 

2568 

C9 

45 



CMP 

#'E 

;CHECK FOR SPECIAL CASE 

1796 

256A 

DO 

15 



BNE 

OPDES 

7 IF NOT 

1797 

256C 

A9 

00 


PDES 1 

LDA 

#0 

/SPECIAL CASE - DONT OPEN, USE EXISTING 

1798 

256E 

8D 

FF 

IE 


STA 

CDES 


1799 

2571 

4C 

AB 

25 


JMP 

DOCPY 


1800 

2574 

A9 

2E 


ODMS 

LDA 

#QEL 


1S01 

2576 

A2 

23 



LDX 

#QEH 

/SAY OPTION NOT ALLOWED 

1802 

2578 

20 

B5 

31 


JSR 

DSPLIN 


1803 

257E 

20 

AA 

19 


JSR 

CLOSX 

,CLOSE IOCB 1 & 2 

1804 

257E 

4C 

B6 

20 


JMP 

MENUSL. 


1805 





) 




1806 

2581 

C9 

43 


OPDES 

CMP 

#'C 


1807 

2583 

FO 

EF 



BEG 

ODMS 

, C: GETS "OPTION DQESNOT MAKE SENSE ' FOR 

1808 

2585 

AE 

9E 

15 


LDX 

OPT 

/GET 2ND FILE OPTION 

1809 





} 




1810 

2588 

EO 

41 



CPX 

# 'A 

;APPEND TO DISK FILE 

1811 

258A 

DO 

08 



BNE 

OPDES1 


1812 

258C 

C9 

44 



CMP 

#'D 


1813 

258E 

DO 

E4 



BNE 

ODMS 


1814 

2590 

A9 

09 



LDA 

#9 


1815 

2592 

DO 

02 



BNE 

0PDES3 


1816 

2594 

A9 

08 


0PDES1 

LDA 

#8 


1817 

2596 

A2 

20 


0PDES3 

LDX 

#$20 


1818 

2598 

9D 

4A 

03 


STA 

ICAX 11 X 

;OPEN TYPE OUT 

1819 

259B 

A9 

03 



LDA 

#QPEN 


1820 

259D 

9D 

42 

03 


STA 

ICCQM,X OPEN 


1821 

25A0 

8E 

FF 

IE 


STX 

CDES 


1822 

25A3 

20 

EE 

31 


JSR 

CIOCL 


1823 

25A6 

A9 

00 



LDA 

#0 


1824 

25A8 

9D 

4B 

03 


STA 

ICAX2, X 


1825 





j 




1826 





; COPY 

FROM CSRC TO CDES 


1827 





j 




1828 

25AB 

A9 

07 


DOCPY 

LDA 

#GETCHR 


1829 

25AD 

AE 

FE 

IE 

GC1 

LDX 

CSRC 


1830 

25B0 

AC 

FF 

IE 


LDY 

CDES 


1831 

25EJ3 

9D 

42 

03 


STA 

ICCQM, X 


1832 

25B6 

A9 

OB 



LDA 

#PUTCHR 


1833 

25B8 

99 

42 

03 


STA 

ICCQM,Y 



RR LINE 
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B2 
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PROGRAMS (DUP) 
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45 

18:34 

25BB 

A5 

1A 



LDA 

BUFADR 

iADDRESS OF BUFFER - EITHER 


1835 

25BD 

9D 

44 

03 


STA 

ICBAL,X 

i PGM AREA (MEMLO) OR DATA BUFFER <DBUF) 

1836 

2500 

99 

44 

03 


STA 

ICBAL,Y 



1837 

2503 

A5 

IB 



LDA 

BUFADR+1 

iBUFADR IN LSB-MSB ORDER 


1838 

2505 

9D 

45 

03 


STA 

ICBAH/X 



1839 

2508 

99 

45 

03 


STA 

ICBAH,Y 



1840 

25CB 

AE 

FE 

IE 

CLOOP 

LDX 

CSRC 



1841 

25CE 

AD 

04 

IF 


LDA 

BUFLEN 

; LENGTH OF BUFFER ADDRESSED 


1842 

25D1 

9D 

48 

03 


STA 

ICBLL/X 

i BY BUFADR 


1843 

25D4 

AD 

05 

IF 


LDA 

BUFLEN+1 

- BOTH BUFADR 8- BUFLEN ARE ASSIGNED 


ie44 

25D7 

9D 

49 

03 


STA 

ICBLH/X 

i IN SUBROUTINE USEPGM 


1845 

25DA 

20 

56 

E4 


JSR 

CIO 

; READ FROM INPUT 


1846 

25DD 

80 

F8 

IE 


STY 

SSTAT 



1847 

25E0 

AE 

FF 

IE 


LDX 

ODES 



1848 

25E3 

AC 

FE 

IE 


LDY 

CSRC 



1849 

25E6 

B9 

48 

03 


LDA 

ICBLL,Y 



1850 

2 5E9 

9D 

48 

03 


STA 

ICBLL,X 

V. 


1851 

25EC 

B9 

49 

03 


LDA 

ICBLH,Y 



1852 

25EF 

9D 

49 

03 


STA 

ICBLH,X 



1853 

25F2 

19 

48 

03 


ORA 

ICBLL,Y 

;IF SOURCE FILE LENGTH * 0 


1854 

25F5 

F0 

03 



BEG 

CKRS 

;DON'T DO WRITE 


1855 

25F7 

20 

EE 

31 


JSR 

CIOCL 

> WRITE. ABORT IF ERROR 


1856 

25FA 

AD 

F8 

IE 

CKRS 

LDA 

SSTAT 

-GET READ OPERATION STATUS BACK 


1857 

25FD 

10 

00 



BPL 

CLOOP 

;IF OK, GO READ SOME MORE 


1858 

25FF 

09 

88 



CMP 

#$88 

, EOF STATUS 


1859 

2601 

FO 

03 



BEG 

# + 5 



1860 

2603 

40 

F6 

31 


JMP 

CIOER 

- IF NOT, ABORT 


1861 

2606 

AE 

FE 

IE 

CLOG 

LDX 

CSRC 



1862 

2609 

FO 

08 



BEG 

DU4 

; IF E-. , DONT CLOSE 


1 863 










1864 





>CLOSE 

SOURCE 

FILE 



1865 





j 





1866 

260B 

A9 

00 



LDA 

#CLOSE 



1867 

260D 

9D 

42 

03 


STA 

ICCOM, X 



1868 

2610 

20 

56 

E4 


JSR 

CIO 



1869 

2613 

AE 

FF 

IE 

DU4 

LDX 

ODES 



1870 

2616 

FO 

08 



BEG 

DU3 

;IF DES=E: 


1871 

2618 

A9 

oc 



LDA 

#CLOSE 



1872 

261A 

9D 

42 

03 


STA 

ICCOM, X 



1873 

261D 

20 

56 

E4 


JSR 

CIO 



1874 

2620 

AE 

FF 

IE 

DU3 

LDX 

ODES 



1875 

2623 

DO 

07 



BNE 

DU6 



1876 

2625 

A9 

E9 



LDA 

#. LOW. DDSK+1 



1877 

2627 

A2 

26 



LDX 

#. HIGH. (DDSK+1 ) 


1878 

2629 

20 

BE 

19 


JSR 

PRNTMSG 

iPRNT A CR BEFOR SELECT OR WLDCARD 

PRMPT 

1879 

2620 




DU6 

s= 

# 



1880 





r 





1881 

2620 

20 

41 

23 


BIT 

WCFLAG 



1882 

262F 

10 

03 



BPL 

DUS 



1883 

2631 

40 

9E 

23 


JMP 

WCOPYL 

iBRANCH BACK TO WILD CARD LOOP 


1884 

2634 

40 

B6 

20 

DUS 

JMP 

MENUSL 
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1885 


1886 


1887 


1888 


1889 


1890 


1891 


1892 


1893 


1894 

2637 

1895 

2639 

1896 

263C 

1897 

263F 

1898 


1899 

2642 

1900 


1901 


1902 


1903 

2645 

1904 

2647 

1905 

2649 

1906 

264C 

1907 

264F 

1908 

2652 

1909 

2656 

1910 

265A 

191 1 

26 5E 

1912 

2662 

1913 

2666 

1914 

266A 

1915 


1916 


1917 


1918 


1919 


1920 

266E 

1921 

2670 

1922 

2673 

1923 

2675 

1924 

2677 

1925 

2679 

1926 

267A 

1927 


1928 

267D 

1929 



52 

26 


20 

CF 

30 

20 

DA 

30 

20 

C4 

30 

20 

6E 

26 


A9 

20 



A2 

10 



9D 

42 

03 


20 

EE 

31 


4C 

B6 

20 


52 

45 

4E 

41 

4D 

45 

20 

2D 

20 

47 

49 

56 

45 

20 

4F 

4C 

44 

20 

4E 

41 

4D 

45 

2C 

20 

4E 

45 

57 

9B 


AO 

01 


AD 

7D 

ID 

C9 

3A 


FO 

03 


29 

OF 


A8 



8C 

F6 

IE 

4C 

F3 

28 


. PAGE 

J **** RENAME FILE ROUTINE **** 


; RENAME SETS UP IOCB #1 WITH THE OLD FILE NAME AND THE BUFFER ADDRESS 
;POINTS TO THE NEW FILE NAME. THE NEW FILE SPECIFICATION CANNOT HAVE 
;A DEVICE ID. THE DEVICE ID IS THE SAME AS SPECIFIED FOR THE OLD FILE 
; D2:ABC. S2>QGG. R3 THIS RENAMES ABC. S2 ON DRIVE #2 TO GQG. R3 


RENFIL WORD 

RNMG 

JSR 

GETIC1 

JSR 

GETNAME 

JSR 

PERX 


>GET OLD FILE SPEC & PUT ADDR IN IOCB 

i GET NEW FILE NAME 

/EXIT IF PARAMETER ERRORS 


JSR CHKVER 


; MAKE SURE VER 2 DISKETTE 


CONTINUE WITH RENAME 



LDA 

#RENAME 


LDX 

#$10 


STA 

ICCOM,X 


JSR 

CIOCL 


JMP 

MENUSL 

RNMG 

BYTE 

'RENAME 


GIVE OLD NAME/ NEWCR 


; **###*###**#*■*■**■*■*■* SUBROUTINE 


i 

MAKE 

SURE THIS IS 

A VERSION 2 FORMAT DISK 

i 

CHKVER 

LDY 

#1 

iASSUME DRIVE 1- GET DRIVE # 


LDA 

PAR+1 

;TEST CHAR 2 OF FILE SPEC FOR SEMICOLON 


CMP 

# 

J IF IS/ USING DEFAULT DRIVE (1) 


BEG 

DRV1 

;IT IS/ SO SAVE DRIVE # 


AND 

TAY 

#$GF 

iELSE CHAR 2 IS ASCII REP OF DRIVE # 
iCONVERT TO BINARY & SAVE IT 

DRV1 

STY 

UNNO 

sSAVE DRIVE # 

J 

JMP 

TSTVER2 

/TST FOR VERS. 2 DISK- WONT RTURN IF NOT 
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1930 







. PAGE 

1931 






? *■*■*■* 

FORMAT 

1932 






y 


1933 






j 


1934 

2680 

B9 

26 



FMTDSK 

. WORD 

1935 

2682 

20 

3C 

30 



JSR 

1936 

2685 

20 

BE 

32 



USR 

1937 

2688 

18 





CLC 

1938 

2689 

69 

30 




ADC 

1939 

268B 

8D 

E8 

26 



STA 

1940 

26 8E 

8D 

EB 

26 



STA 

1941 

2691 

20 

C4 

30 



USR 

1942 

2694 

A9 

DO 




LDA 

1943 

2696 

A2 

26 




LDX 

1944 

2698 

20 

B5 

31 



USR 

1945 

26 9B 

20 

7E 

30 



USR 

1946 

26 9E 

C9 

59 




CMP 

1947 

26A0 

DO 

14 




BNE 

1948 

26A2 

A9 

EA 




LDA 

1949 

26A4 

A2 

10 




LDX 

1950 

26A6 

9D 

44 

03 



STA 

1951 

26A9 

A 9 

26 




LDA 

1952 

26AB 

9D 

45 

03 



STA 

1953 

26AE 

A9 

FE 




LDA 

1954 

26B0 

9D 

42 

03 



STA 

1955 

26B3 

20 

EE 

31 



USR 

1956 

26B6 

4C 

B6 

20 


FMX 

UMP 

1957 

26B9 

57 

48 

49 

43 

WHD 

. BYTE 

1958 

26 BD 

48 

20 

44 

52 



1959 

26 C1 

49 

56 

45 

20 



1960 

26C5 

54 

4F 

20 

46 



1961 

26C9 

4F 

52 

4D 

41 



1962 

26CD 

54 

3F 

9B 




1963 

26 DO 

54 

59 

50 

45 

VFM 

BYTE 

1964 

26D4 

20 


59 

22 



1965 

26D8 

20 

54 

4F 

20 



1966 

26DC 

46 

4F 

52 

4D 



1967 

26E0 

41 

54 

20 

44 



1968 

26E4 

49 

53 

4B 

20 



1969 

26E8 





DDSK: 

. RES 

1970 

26 E 9 

9B 





. BYTE 

1971 

26EA 

44 




FDP 

. BYTE 

1972 

26EB 





CDSK: 

. RES 

1973 

26EC 

3A 

9B 




. BYTE 

1974 

26EE 






HILO 

1975 

0026 





+WHDH 

= 

1976 

00 B 9 





+WHDL 


1977 

26EE 






HILO 

1978 

0026 





+VFMH 

= 

1979 

OODO 





+VFML 


1980 

26EE 






HILO 

1981 

0026 





+FDPH 

= 

1982 

OOEA 





+FDPL 



DISK ROUTINE **** 


WHD 

GETLIN 

GETDN 

#'0 

DDSK 

CDSK 

PERX 

#. LOW. VFML /QUERY TO VERIFY DRIVE NUMBER 

#. LOW. VFMH 

DSPLIN 

CHRGET 

#'Y jSEE IF OK 

FMX 

#. LOW. FDPL 
#$10 
ICBALi X 
#. LOW. FDPH 
ICBAH/ X 
#FORMAT 
ICCOM/ X 

CIOCL iCALL CIO TO DO FORMAT 

MENUSL i EXIT. 

'WHICH DRIVE TO FORMAT? SCR 


' TYPE S $22/ ' Y ' / $22.- ' TO FORMAT DISK 


1 

CR 

' D ' 

1 

S CR 
WHD 

WHD/256 

<-256>*WHDH+WHD 

VFM 

VFM/256 

<-256)*VFMH+VFM 

FDP 

FDP/256 

(-256) #FDPH+FDP 


ERR LINE 

AD DR 

El 

B2 

B3 B4 

DISK UTILITY 

PROGRAMS (DUP) 
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PAGE 48 

1983 






PAGE 




1984 





] #•**■#•**■ 

START 

CARTRIDGE ROUTINE **** 


1985 










1986 










1987 

E45F 




SYVBL 

- 

SYSVBV 



1988 

26EE 





HILO 

SYVBL 



1989 

00E4 




+SWBLH 

=S 

SYVBL/256 



1990 

005F 




+SYVBLL 

m. 

(-256) *SYVBLH+SYVBL. 


1991 

E462 




XTVBL 

- 

XITVBV 



1992 

26EE 





HILO 

XTVBL 



1993 

00E4 




+XTVBLH 

at 

XTVBL/256 



1994 

0062 




+XTVBLL 

= 

(-256>*XTVBLH+XTVEL 


1995 

26EE 

4B 

27 


STCAR 

. WORD 

SCMG 

>NO MSG/ PRINT A <CR> 


1996 

BFFD 




ROMTST 

- 

$BFFD 



1997 

26F0 

AC 

FD 

BF 


LDY 

ROMTST 

iTEST IF RAM OR OTHER 


1998 

26F3 

A9 

AA 



LDA 

#$AA 

/PATTERN #1 


1999 

26 F 5 

8D 

FD 

BF 


STA 

ROMTST 



2000 

26F8 

CD 

FD 

BF 


CMP 

ROMTST 



2001 

26FB 

DO 

17 



BNE 

NOTRAM 

;BRANCH IF NOT RAM 


2002 

26FD 

A9 

55 



LDA 

#$55 

;PATTERN #2 


2003 

26FF 

8D 

FD 

BF 


STA 

ROMTST 



2004 

2702 

CD 

FD 

BF 


CMP 

ROMTST 



2005 

2705 

DO 

OD 



BNE 

NOTRAM 

;BRANCH IF NOT RAM 


2006 





i 





2007 

2707 

8C 

FD 

BF 


STY 

ROMTST 

/THERE IS VALID RAM - SAY 

NO CART 

2008 

270A 

A9 

3F 


NQCART 

LDA 

#. LOW. NCAL 



2009 

27 0C 

A2 

27 



LDX 

#. LOW. NCAH 

/ SAY NO CART 


2010 

270E 

20 

B5 

31 


JSR 

DSPLIN 



2011 

2711 

4C 

B6 

20 


JMP 

MENUSL 



2012 





i 





2013 





; 

CHECK 

IF ROM OR EMPTY 

ADDRESS SPACE 


2014 





f 





2015 

2714 

AD 

FC 

BF 

NOTRAM 

LDA 

$BFFC 

/KNOWN ROM ZERO BYTE 


2016 

2717 

DO 

FI 



BNE 

NOCART 

j BRANCH IF EMPTY ADDRESS 

SPACE 

2017 





; 





2018 

2719 

AA 




TAX 


/SINCE EMPTY ADDR SPACE GIVES A RANDOM 

2019 

271A 

AD 

FD 

BF 

CKCART 

LDA 

ROMTST 

? VALUE, TEST THE SAME LOC 

MANY TIMES. 

2020 

271D 

FO 

EB 



BEG 

NOCART 

■/BRANCH IF NO CARTRIDGE 


2021 

27 IF 

CD 

FD 

BF 


CMP 

ROMTST 



2022 

2722 

DO 

E6 



BNE 

NOCART 

.BRANCH IF NO CARTRIDGE 


2023 

2724 

E8 




INX 




2024 

2725 

DO 

F3 



BNE 

CKCART 

; LOOP BACK 


2025 





i 





2026 





f 





2027 





f 

RESET 

VERTICAL BLANK 

VECTORS BEFORE ENTERING CART 


2028 





f 





2029 

2727 

20 

76 

19 


JSR 

INITIO 



2030 

272A 

A9 

06 



LDA 

#6 

;SET VVBL.KI 


2031 

272C 

A2 

E4 



LDX 

#. LOW. SYVBLH 

1 HI BYTE 


2032 

272E 

AO 

5F 



LDY 

#. LOW.SYVBLL 



2033 

2730 

20 

5C 

E4 


JSR 

SETVBV 



2034 

2733 

A9 

07 



LDA 

#7 

i SET VVBLKD 


2035 

2735 

A2 

E4 



LDX 

#. LOW. XTVBLH 



2036 

2737 

AO 

62 



LDY 

#. LOW. XTVBLL 
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B2 
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PAGE 

49 

2037 

2739 

20 

5C 

E4 

JSR 

SETVBV 



203S 

273C 

4C 

12 

19 

JMP 

CLMJMP 
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2039 







. PAGE 


2040 

27 3E 

4E 

4F 

20 

43 

NCA 

. BYTE 

'NO CARTRIDGE' 

2041 

2743 

41 

52 

54 

52 




2042 

2747 

49 

44 

47 

45 




2043 

274B 

9E 




SC MG 

. BYTE 

CR 

2044 

274C 






HILO 

NCA 

2045 

0027 





+NCAH 

= 

NCA/256 

2046 

003F 





+NCAL 

=r 

{-256)*NCAH+NCA 


2047 , 

2048 , 

2049 ? a-**#**# RUN AT ADDRESS ****#•**■ 

2050 

2051 

2052 , 


2053 

274C 

68 

27 



BRUN 

. WORD 

BRMG 



2054 

274E 

20 

3C 

30 



JSR 

GETLIN 



2055 

2751 

20 

24 

32 



JSR 

GETNO 



2056 

2754 

20 

C4 

30 



JSR 

PERX 



2057 

2757 

85 

1A 




STA 

RAMLO 



2058 

2759 

86 

IB 




STX 

RAMLO+1 



2059 

275B 

AD 

03 

IF 



LDA 

CTR 



2060 

275E 

C9 

04 




CMP 

#4 



2061 

2760 

FO 

50 




BEG 

M0UT1 

.RETURN TO MENU IF 

NO RUN ADDRESS GIVEN 

2062 

2762 

20 

76 

19 



JSR 

INITIO 

(CLOSE ALL IOCB'S, 

THEN REOPEN S/E 

2063 

2765 

4C 

20 

19 



JMP 

LMTR 

;LOAD MEM.SAV & JUMP TO ADDRESS 

2064 






j 





2065 






f 





2066 

2768 

52 

55 

4E 

20 

BRMG 

. BYTE 

'RUN FROM 

WHAT ADDRESS? S CR 


2067 

276C 

46 

52 

4F 

4D 






2068 

2770 

20 

57 

48 

41 






2069 

2774 

54 

20 

41 

44 






2070 

2778 

44 

52 

45 

53 






2071 

277C 

53 

3F 

9B 
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PAGE 

2072 










2073 





i **** 

CREATE MEM. SAV FILE ON DISK **** 


2074 










2075 





! 





2076 

277F 

54 

59 

50 45 

MEMS 

. BYTE 

'TYPE ' ,$22, ' 

Y', *22, ' TO CREATE MEM. SAV ', CR 


2077 

2783 

20 

22 

59 22 






2078 

2787 

20 

54 

4F 20 






2079 

278B 

43 

52 

45 41 






2080 

278F 

54 

45 

20 40 






2081 

2793 

45 

4D 

2E 53 






2082 

2797 

41 

56 

9B 






2083 

279A 

7F 

27 


MEMSAV 

. WORD 

MEMS 



2084 

279C 

20 

7E 

30 


JSR 

CHRGET 

, GET CHAR (CR) 


2085 

279F 

C9 

59 



CMP 

# ' Y 



2086 

27A1 

DO 

OC 



BNE 

MOUT 

; BRANCH IF USER'S ANSWER NOT 

A Y 

2087 

27A3 

20 

73 

18 


JSR 

MEMSVG 

; TRY TO OPEN MEM. SAV 


2088 

27A6 

30 

OD 



BMI 

MCQNT 

i IF FILE DOESN'T EXIST THEN 

JUMP 

2089 

27A8 

A9 

BD 



LDA 

#. LOW. MEMSGL. 

i ELSE 'MEMORY. SAVE' AREADY EXIST 

2090 

27 A A 

A2 

27 



LDX 

#. LOW. MEMSGH 

i 


2091 

2 7 AC 

20 

B5 

31 


JSR 

DSPLIN 

.DISPLAY THIS FACT 


2092 

27AF 

20 

AA 

19 

MOUT 

JSR 

CLQSX 

> EXIT AFTER CLOSING IQCB1 


2093 

27B2 

4C 

B6 

20 

MQUT1 

JMP 

MENUSL 



2094 





i 





2095 





i WRITE 

MEMORY. SAVE TO DISK 



2096 










2097 

27B5 

20 

46 

17 

MCQNT 

JSR 

MWRITE 

. WRITE FILE 


2098 

27B8 

10 

F5 



BPL 

MOUT 



2099 

27 BA 

4C 

F5 

31 

MERR 

JMP 

CI0ER1 

; DISPLAY ERROR 


2100 





z 





2101 

27BD 

4D 

45 

4D 2E 

MEMSG 

BYTE 

'MEM. SAV FILE 

ALREADY EXISTS', CR 


2102 

27C1 

53 

41 

56 20 






2103 

27C5 

46 

49 

4C 45 






2104 

27C9 

20 

41 

40 52 






2105 

27CD 

45 

41 

44 59 






2106 

27D1 

20 

45 

58 49 






2107 

27D5 

53 

54 

53 9B 






2108 

2709 





HILO 

MEMSG 



2109 

0027 




+MEMSGH 

= 

MEMSG/256 



2110 

00BD 




+MEMSGL 

= 

(-256 > *MEMSGH+MEMSG 



51 
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VER 2.9 11/18/80 PAGE 52 

2111 






. PAGE 



2112 





i ##*# WRITE DOS & DUP 


2113 





i 




2114 





i 




2115 

27D9 

75 

28 


WBOOT 

. WORD 

DOSDRV 

s ADDRESS OF DRIVE # PROMPT 

2116 





J 




2117 





i 

RETRIEVE DRIVE NUMBER 

FROM USER. 

2118 





i 




2119 

27DB 

20 

3C 

30 


USR 

GETLIN 

jGET INPUT 

2120 

27DE 

20 

BE 

32 


JSR 

GETDN 

* GET DRIVE AS NUMBER, VERIFY IT 

2121 

27E1 

20 

C4 

30 


JSR 

PERX 

i EXIT IF ERROR 

2122 

27E4 

8D 

F6 

IE 


STA 

UNNO 

;SAVE IT FOR TSTVER2 

2123 

27E7 

09 

30 



ORA 

#'0 

i TURN BACK TO ASCII REP 

2124 

27E9 

8D 

CB 

28 


STA 

DS+1 

s STORE IN DOS.SYS FILE SPEC 

2125 

27EC 

8D 

C7 

28 


STA 

GWMG+31 

IN PROMPT 

2126 





i 




2127 

27EF 

20 

F3 

28 


USR 

TSTVER2 

i TST IF VERS. 2 DISK - IF ISNT WONT RTRN 

2128 





i 




2129 





i 

ASK USER IF CAN WRITE 

DOS & DUP TO SPECIFIED DRIVE 

2130 





j 




2131 

27F2 

A9 

A8 



LDA 

#. LOW. GWMGL. 

;PRINT PROMPT 

2132 

27F4 

A2 

28 



LDX 

#. LOW. GWMGH 


2133 

27F6 

20 

B5 

31 


JSR 

DSPLIN 


2134 

27F9 

20 

7E 

30 


JSR 

CHRGET 


2135 

27FC 

C9 

59 



CMP 

#'Y 


2136 

27FE 

DO 

72 



BNE 

WBX 

;EX IT UNLESS Y 

2137 





i 




2138 





i TELL 

USER WRITING DOS FILES 

AND WRITE DOS. SYS FIRST- JUST OPEN IT. 

2139 





i 




2140 

2800 

A9 

92 



LDA 

#. LOW. WBMGL 


2141 

2802 

A2 

28 



LDX 

#. LOW. WBMGH 


2142 

2804 

20 

B5 

31 


JSR 

DSPLIN 


2143 





i 




2144 

2807 

A9 

03 



LDA 

#QPEN 


2145 

2809 

A2 

10 



LDX 

#*10 

;OPEN DOS. SYS ON IOCB #1 

2146 

280B 

9D 

42 

03 


STA 

ICCOM, X 

;WILL CAUSE FMS TO REWRITE BOOT SECTOR 

2147 

280E 

A9 

CA 



LDA 

#. LOW. DSL 

;& A COPY OF DOS. SYS 

2148 

2810 

9D 

44 

03 


STA 

ICBAL, X 


2149 

2813 

A9 

28 



LDA 

#. LOW. DSH 


2150 

2815 

9D 

45 

03 


STA 

ICBAH, X 


2151 

2818 

A9 

08 



LDA 

#8 


2152 

281A 

9D 

4A 

03 


STA 

ICAX1, X 


2153 

281D 

20 

EE 

31 


JSR 

CIOCL 

iDO OPEN, IF ERROR GOTO MENU 

2154 





i 




2155 

2820 

A2 

10 



LDX 

#*10 


2156 

2822 

A9 

OC 



LDA 

#CLOSE 


2157 

2824 

9D 

42 

03 


STA 

ICCOMiX 


2158 

2827 

20 

EE 

31 


JSR 

CIOCL 

i DONE CLOSE IT. 

2159 





i 




2160 





i 

WRITE 

DUP. SYS - SWAP 

AREA FILE 

2161 





i 




2162 

282A 

A2 

OB 



LDX 

#11 

iMOVE 11 CHARS 

2163 

282C 

BD 

2E 

18 

MDUPBL 

LDA 

DUPSYS-1, X 


2164 

282F 

9D 

7B 

ID 


STA 

PAR-1iX 

iMOVE FILE NAME TO PARAMETER LIST 
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2165 

2832 

CA 





DEX 



2166 

2833 

DO 

F7 




BNE 

MDUPBL 


2167 

2835 

AD 

CB 

28 



LDA 

DS+1 

; GET DRIVE NUMBER 

2168 

2838 

8D 

7D 

ID 



STA 

PAR + 1 

; PUT IT IN DUP. SYS FILE SPEC 

2169 






i 




2170 

283B 

8E 

01 

IF 



STX 

PTR 


2171 

283E 

A2 

10 




LDX 

#$1C 


2172 

2840 

20 

DD 

31 



JSR 

PIOCB 

.PUT FILE NAME POINTER IN IOCB 

2173 

2843 

A9 

OC 




LDA 

#. LOW. DTHL 


2174 

2345 

8D 

EO 

19 



STA 

LDST 


2175 

2848 

A9 

IF 




LDA 

#. LOW. DTHH 


2176 

284A 

8D 

El 

19 



STA 

LDST+1 


2177 

284D 

A9 

05 




LDA 

#. LOW. NMDUP 


2178 

284F 

8D 

E2 

19 



STA 

LDND 


2179 

2852 

A9 

F9 




LDA 

#. LOW. LENL 


2180 

2854 

8D 

F8 

2F 



STA 

WDRL+1 


2181 

2857 

A9 

13 




LDA 

#. LOW. LENH 


2182 

2859 

8D 

FD 

2F 



STA 

WDRH+1 


2183 

285C 

A9 

33 




LDA 

#. HIGH. NMDUP 


2184 

285E 

8D 

E3 

19 



STA 

LDND+1 


2185 

2861 

48 





PHA 


i NO /A 

2186 

2862 

A9 

75 




LDA 

#. LOW. DOSOS 


2187 

2864 

8D 

EO 

02 



STA 

RUNAD 


2188 

2867 

A9 

20 




LDA 

#.HIGH.DOSOS 


2189 

2869 

8D 

El 

02 



STA 

RUNAD+1 

.SET DUP. SYS RUN ADDRESS 

2190 

286C 

CE 

BE 

18 



DEC 

RUNG+1 

,SET RUN FLAG 

2191 

286F 

4C 

AO 

2F 



JMP 

NRUNAD 

,WRITE DUP. SYS 

2192 

2872 

4C 

B6 

20 


WBX 

JMP 

MENUSL 


2193 

2875 

44 

52 

49 

56 

DOSDRV 

BYTE 

'DRIVE TO WRITE DOS FILES TO?'/CR 

2194 

2879 

45 

20 

54 

4F 





2195 

287D 

20 

57 

52 

49 





2196 

2881 

54 

45 

20 

44 





2197 

2385 

4F 

53 

20 

46 





2198 

2889 

49 

4C 

45 

53 





2199 

288D 

20 

54 

4F 

3F 





2200 

2891 

9B 








2201 

2892 

57 

52 

49 

54 

WBMG 

BYTE 

'WRITING NEW 

DOS FILES',CR 

2202 

2896 

49 

4E 

47 

20 





2203 

289A 

4E 

45 

57 

20 





2204 

289E 

44 

4F 

53 

20 





2205 

28A2 

46 

49 

4C 

45 





2206 

28A6 

53 

9B 







2207 

28A8 






HILO 

WBMG 


2208 

0028 





+WBMGH 


WBMG/256 


2209 

0092 





■+-WBMGL 

= 

(-256)*WBMGH+WBMG 


53 


RR 


LINE 

ADDR 

E1 

82 

E3 

84 

DISK 

UTILITY 

PROGRAMS (DUP) VER 2.9 11/18/80 PAGE 54 

2210 







PAGE 


2211 

28AS 

54 

59 

50 

45 

GWMG 

BYTE 

'TYPE '.*22. ' Y '. *22. ' TO WRITE DOS TO DRIVE ',CR 

2212 

2SAC 

20 

22 

59 

22 




2213 

2880 

20 

54 

4F 

20 




2214 

2884 

57 

52 

49 

54 




2215 

2888 

45 

20 

44 

4F 




2216 

28BC 

53 

20 

54 

4F 




2217 

28C0 

20 

44 

52 

49 




2218 

28C4 

56 

45 

20 

20 




2219 

28C8 

2E 

9B 





J 

2220 

28 C A 






HILO 

GWMG 

2221 

0028 





+GWMGH 

= 

GWMG/256 

2222 

00A8 





+GWMGL 

~ 

(-256 >*GWMGH+GWMG 

2223 

2BCA 

44 

31 

3A 

44 

DS 

. BYTE 

'Dl:DQS. SYS'/ OR 

2224 

28CE 

4F 

53 

2E 

53 




2225 

28D2 

59 

53 

9B 





2226 

2QD5 






HILO 

DS 

2227 

0028 





+DSH 

~ 

DS/256 

2228 

00CA 





+DSL 

- 

<-256>*DSH+DS 

2229 

28D5 

45 

52 

52 

4F 

WVD 

BYTE 

'ERROR - NOT VERSION 2 FORMAT. '/OR 

2230 

28D9 

52 

20 

2D 

20 




2231 

28DD 

4E 

4F 

54 

20 




2232 

28E i 

56 

45 

52 

53 




2233 

28E5 

49 

4F 

4E 

20 




2234 

28E9 

32 

20 

46 

4F 




2235 

28ED 

52 

4D 

41 

54 




2236 

28F1 

2E 

98 






2237 

28E3 






HILO 

WVD 

2238 

0028 





+WVDK 

sr 

WVD/256 

2239 

00D5 





+WVDL 


<-256>*WVDH+WVD 


RR LINE ADDR SI B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 55 


PAGE 

**** TEST FOR VERSION 2 FORMAT - SUBROUTINE **** 


SUBROUTINE - TSTVER2 


READS THE DISK'S VTOC AND CHECKS IF VERSION BYTE IS SET AS 2. 

ENTRY - DRIVE # STORED IN UNNO 
EXIT - RETURNS ONLY IF IS A VERSION 2 DISK 
ELSE DOES AN ERROR EXIT BACK TO MENU 
CALLS - DRVSTAT AND RVTOC 
CALLED BY - DELFIL, RENFIL, WBOOT. 


GET DRIVE TYPE SO KNOW CORRECT SECTOR SIZE - NEEDED FOR RVTOC 


2258 

28F3 




TSTVER2 - 

* 



2259 

28F3 

A9 

00 


LDA 

#0 


GET DRIVE TYPE IN SECSIZ 

2260 

28F5 

8D 

08 

IF 

STA 

SECSIZ 


ASSUME 256 - NEEDED BY RVTOC 

2261 

28F8 

AD 

F6 

IE 

LDA 

UNNO 


GET DRIVE # 

2262 

28FB 

20 

E4 

2C 

JSR 

DRVSTAT 


FIND OUT TYPE - CARRY FLAG 

2263 

28FE 

BO 

05 


BCS 

OKTYP 


BRANCH IF 256 TYPE 

2264 

2900 

A9 

80 


LDA 

#$80 


ELSE SET AS 128 BYTE DEVICE 

2265 

2266 

2902 

8D 

08 

IF 

STA 

SECSIZ 



2267 

2268 





i READ 

THE VTOC & CHECK 

IF 

VERSION 2 

2269 

2905 

20 

26 

2A 

OKTYP JSR 

RVTOC 


READ IN VTOC TO DBUF 

2270 

2908 

AD 

F4 

ID 

LDA 

DBUF 


1ST BYTE IS VERSION # 

2271 

290B 

C9 

02 


CMP 

#2 


IS IT VERSION 2? 

2272 

2273 

290D 

FO 

OA 


BEQ 

i 

SMVRS 


YES, SAME VERSION - RETURN 

2274 





i NOT A 

VERSION 2 DISK - 

PRINT MSG & GOTO MENU 

2275 

2276 

290F 

A9 

D5 


i 

LDA 

#. LOW. WVDL 


ELSE, NOT SAME VERSION 

2277 

2911 

A2 

28 


LDX 

#. LOW. WVDH 


PRINT INCOMPATIBLE MSG 

2278 

2913 

20 

B5 

31 

JSR 

DSPLIN 



2279 

2280 

2916 

4C 

B6 

20 

JMP 

i 

MENUSL 


GOTO MENU 

2281 





i DISK 

IS VERSION TWO SO 

RETURN 


SMVRS RTS 


; RETURN 





RR LINE ADDR B1 B2 133 

2284 

2285 

2286 
2287 


2288 

29 1A 

5E 

29 


2289 

291C 

20 

CF 

30 

2290 

29 IF 

A9 

00 


2291 

2921 

AE 

9E 

15 

2292 

2924 

QD 

9E 

15 

2293 

2927 

EO 

4E 


2294 

2929 

DO 

03 


2295 

292B 

CE 

9E 

15 

2296 

292E 

20 

C 4 

30 

2297 

2931 

20 

A9 

15 

2298 

2934 

EO 

00 


2299 

2936 

FO 

12 


2300 

2938 

EO 

03 


2301 

293A 

FO 

04 


2302 

293C 

98 



2303 

293D 

4C 

F6 

31 

2304 

2940 

A9 

4D 


2305 

2942 

A2 

29 


2306 

2944 

20 

B5 

31 

2307 

2947 

20 

AA 

19 

2308 

294A 

4C 

B6 

20 

2309 

294D 

42 

41 

44 

2310 

2951 

4C 

4.F 

41 

231 1 

2955 

20 

46 

49 

2312 

2959 

45 

9B 


2313 

295B 




2314 

0029 




2315 

004D 




2316 

295B 

4C 

4F 

41 

2317 

295F 

20 

46 

52 

2318 

2963 

4D 

20 

57 

2319 

2967 

41 

54 

20 

2320 

296B 

49 

4C 

45 

2321 

296F 

9B 




B4 DISK UTILITY 

. PAGE 
j **** LOAD 


LDFIL . WORD 
JSR 
LDA 
LDX 
STA 
CPX 
ENE 
DEC 

NOTN JSR 
JSR 
CPX 
BEG 
CPX 
I3EQ 
TYA 
JMP 

NLF LDA 

LDX 
JSR 
JSR 

LDFX JMP 

20 ELF BYTE 

44 

4C 

HILO 

+BLFH 
+ BLFL 

44 LFMG BYTE 

4F 

48 

46 

3F 


PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 


56 


USER FILE FUNCTION **** 


LFMG 

GETIC1 

#0 

OPT 

OPT 

#'N f IS OPTION N FOR DON'T LOAD AND GO? 

NOTN )BRANCH IF NOT 

OPT 

PERX 

LOAD 

#0 jPROCESS LOAD SUBR RESPONSE 

LDFX ;BRANCH IF LOAD WAS OK 

#3 

NLF fIF BAD LOAD FILE 

,OTHERWISE WE GOT A CIO ERROR 
CIOER iGO SAY WHAT IT IS 

#. LOW. BLFL 
#. LOW. BLFH 

DSPLIN i BAD LOAD FILE MSG 

CLOSX yCLOSE THE FILE 

MENUSL iEXIT 

'BAD LOAD FILE',CR 


BLF 

SLF/256 

(-256>*BLFH+BLF 

"LOAD FROM WHAT FILE? SCR 


PAGE 


LINE 

ADDR 

B1 

B2 

B3 

B4 

DISK 

UTILITY 

PROGRAMS COUP) 

VER 2.9 11/18/80 

2322 










2323 






} LOCK 

%>. UNLOCK FILE 

COMMANDS 

2324 






} 




2325 






; 




2326 

2970 

85 

29 



LKFIL 

. WORD 

LKMG 

?DO LOCK 

2327 

2972 

20 

OF 

30 



JSR 

GET101 


2328 

2975 

20 

04 

30 



JSR 

PERX 


2329 

2978 

A9 

23 




LDA 

#LOCK 


2330 

297A 

A2 

10 




LDX 

#*10 


2331 

297C 

9D 

42 

03 



STA 

ICCOM/ X 


2332 

297F 

20 

EE 

31 



JSR 

CIOCL 


2333 

2982 

40 

B6 

20 



JMP 

MENUSL 


2334 

2985 

57 

4e 

41 

54 

LKMG 

. BYTE 

'"WHAT FILE TO 

LOCK?',OR 

2335 

2989 

20 

46 

49 

40 





2336 

298D 

45 

20 

54 

4F 





2337 

2991 

20 

40 

4F 

43 





2338 

2995 

4B 

3F 

9B 






2339 






/ 




2340 

2998 

AD 

29 



ULFIL 

. WORD 

ULMG 

;DO UNLOCK 

2341 

299A 

20 

OF 

30 



JSR 

GET101 


2342 

299D 

20 

04 

30 



JSR 

PERX 


2343 

29A0 

A9 

24 




LDA 

#UNLOCK 


2344 

29A2 

A2 

10 




LDX 

#*10 


2345 

29A4 

9D 

42 

03 



STA 

ICCOM/ X 


2346 

29A7 

20 

EE 

31 



JSR 

CIOCL 


2347 

29AA 

40 

B6 

20 



JMP 

MENUSL 


2348 

29AD 

57 

48 

41 

54 

ULMG 

. BYTE 

'"WHAT FILE TO 

UNLOCK?', OR 

2349 

29B1 

20 

46 

49 

40 





2350 

29B5 

45 

20 

54 

4F 





2351 

29B9 

20 

55 

4E 

40 





2352 

29BD 

4F 

43 

4B 

3F 





2353 

2901 

9B 









57 


ERR LINE 

A DDR 

E 1 

B2 

B3 

B4 

2354 






2355 






2356 






2357 






2358 

29 C 2 

44 

55 

50 

20 

2359 

29C6 

44 

49 

53 

4B 

2360 

29CA 

2D 

53 

4F 

55 

2361 

29CE 

52 

43 

45 

2C 

2362 

29D2 

44 

45 

53 

54 

2363 

29D6 

20 

44 

52 

49 

2364 

29DA 

56 

45 

53 

3F 

2365 

29DE 

9E 




2366 

29DF 

54 

59 

50 

45 

2367 

29E3 

20 

22 

59 

22 

2368 

29 E 7 

20 

49 

46 

20 

2369 

29EB 

4F 

4B 

20 

54 

2370 

29EF 

4F 

20 

55 

53 

2371 

29F3 

45 

20 

50 

52 

2372 

29F7 

4F 

47 

52 

41 

2373 

29FB 

4D 

20 

41 

52 

2374 

29FF 

45 

41 

9B 


2375 

2A02 





2376 

0029 





2377 

OODF 





2378 

2 A 02 

43 

41 

55 

54 

2379 

2A06 

49 

4F 

4E 

3A 

2380 

2A0A 

20 

41 

20 

22 

2381 

2A0E 

59 

22 

20 

49 

2382 

2A12 

4E 

56 

41 

40 

2383 

2A16 

49 

44 

41 

54 

2384 

2A1A 

45 

53 

20 

4D 

2385 

2A1E 

45 

4D 

2E 

53 

2386 

2A22 

41 

56 

2E 

9E 

2387 

2A26 





2388 

002A 





2389 

0002 





2390 






2391 






2392 






2393 

2A26 

A9 

01 



2394 

2A28 

8D 

OE 

03 


2395 

2A2B 

A9 

68 



2396 

2A2D 

8D 

OA 

03 


2397 

2A30 

A9 

ID 



2398 

2A32 

8D 

05 

03 


2399 

2A35 

A9 

F4 



2400 

2A37 

8D 

04 

03 


2401 

2A3A 

20 

SD 

2C 


2402 

2A3D 

A9 

00 



2403 

2A3F 

8D 

01 

IF 


2404 

2A42 

AD 

FE 

ID 


2 4t) 5 

2A45 

3D 

FE 

IE 


2406 

2A48 

A9 

08 



2407 

2A4A 

8D 

02 

IF 



DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 PAGE 58 


j **** DUPLICATE DISK ROUTINE ***•» 


DDMG BYTE DUP DISK-SOURCE.DEST DRIVES?',CR 


OK BYTE 'TYPE ',*22, 'Y',*22, ' IF OK TO USE PROGRAM AREA',CR 


HILO OK 

+OKH = OK/256 

+OKL - <-256>*0KH+0K 

CMSI BYTE 'CAUTION: A ',*22, 'Y',*22, ' INVALIDATES MEM. SAV. ',CR 


HILO CMSI 

+CMSIH = CMS1/256 

+CMSIL = <-256>*CMSIH+CMSI 

> RVTOC READS VOLUME TABLE OF CONTENTS SECTOR 

i 

RVTOC LDA #1 

STA DSHI 

LDA #*68 

STA DSLO 

LDA #.LOW. DBUFH 

STA DBUFHI 

LDA #. LOW. DBUFL 

STA DBUFLO 

USR RSEC1 

LDA #0 

STA PTR 

LDA DBUF+*A 

STA CSRC 

LDA #8 

STA IPTR 


; READ VTOC SECTOR 


;POINT DCB AT DBUF 


i BYTE OF ALLOC MAP 


iCOUNT BITS IN BYTE 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2.9 11/18/80 PAGE 59 

2408 

2A4D 

A9 

00 


LDA 


#0 



2409 

2A4F 

8D 

OB 

03 

STA 


DSHI 


.POINT TO SECTOR ONE 

2410 

2A52 

A9 

01 


LDA 


#1 



241 1 

2A54 

QD 

OA 

03 

STA 


DSLQ 



2412 

2A57 

60 



RTS 





2413 





P 





2414 





/ 





2415 

2 A 58 

C2 

29 


DUPDSK . WORD 


DDMG 



2416 

2A5A 

A9 

00 


LDA 


#0 


; ASSUME SINGLE DRIVE 

2417 

2A5C 

8D 

OB 

IF 

STA 


TWODRV 


;CLEAR FLAG 

2418 

2 ASF 

20 

3C 

30 

JSR 


GETLIN 



2419 

2A62 

20 

BE 

32 

JSR 


GETDN 



2420 

2A65 

8D 

F6 

IE 

STA 


UNNO 


; UNIT NO FOR READ 

2421 

2A68 

20 

BE 

32 

JSR 


GETDN 



2422 

2A6B 

8D 

FF 

IE 

STA 


ODES 


; CDES IS THE DEST DRIVE # 

2423 

2A6E 

20 

04 

30 

JSR 


PERX 



2424 





i 





2425 





i DETERMINE THE DRIVE 

TYPES OF THE SOURCE AND DESTINATION DRIVES 

2426 





; IF THEY 

ARE NOT 

THE 

SAME THEN ERROR - PRINT MSG AND GOTO MENU 

2427 





; IF THEY 

ARE THE 

SAME 

THEN SET SECSIZ FOR BUFFER INCREMENT IN 

2428 





; DUP PORTION. 



2429 





j 





2430 

2A71 

A9 

80 


LDA 


#$80 


;ASSUME SOURCE IS 128 BYTE/SECTOR 

2431 

2A73 

8D 

08 

IF 

STA 


SECS IZ 


iSECSIZ IN LSB,MSB ORDER 

2432 

2 A 76 

A9 

00 


LDA 


#0 



2433 

2A78 

8D 

09 

IF 

STA 


SECSIZ+1 



2434 





i 





2435 

2A7B 

AD 

F6 

IE 

LDA 


UNNO 


>CHECK SOURCE FIRST, DO STATUS TEST 

2436 

2A7E 

20 

E4 

20 

JSR 


DRVSTAT 


; SETS CARRY IF 256, 128 THEN CARRY CLR 

2437 

2A81 

90 

09 


BOO 


QNE28 


;BRANCH IF 128 DEVICE 

2438 

2A83 

A2 

00 


LDX 


#0 


; ELSE SET SECSIZ AS 256 BYTES 

2439 

2A85 

8E 

08 

IF 

STX 


SECS IZ 



2440 

2A88 

E8 



INX 





2441 

2A89 

8E 

09 

IF 

STX 


SECSIZ+1 



2442 










2443 





i CHECK 

STATUS ON 

DESTINATION AND SEE IF COMPATIBLE 

2444 





i 





2445 

2A8C 

AD 

FF 

IE 

0NE28 LDA 


ODES 


; DO STATUS ON DEST 

2446 

2A8F 

20 

E4 

20 

JSR 


DRVSTAT 



2447 

2 A 92 

90 

OF 


BOO 


IS128 


; 128, YES TEST FOR 128 IN SECSIZ 

2448 

2A94 

20 

08 

IF 

BIT 


SECSIZ 


,ELSE CHK FOR 256 IN SECSIZ 

2449 

2A97 

10 

OF 


BPL 


SAME 


; BRANCH IF DES & SRC ARE 256 

2450 





/ 





2451 





i NOT THE 

SAME THEN PRINT MSG AND GOTO MENU. 

2452 





i 





2453 

2A99 

A9 

DE 


INCOMP LDA 


#. LOW. NCDRL 

; PRINT INCOMPATIBLE DRIVE 

2454 

2A9B 

A2 

2A 


LDX 


#. LOW. NCDRH 

; MSG 

2455 

2A9D 

20 

B5 

31 

JSR 


DSPLIN 



2456 

2AA0 

4C 

B6 

20 

JMP 


MENUSL 


;GOTO MENU 

2457 





J 





2458 





J 128 BYTE CHECK 



2459 





/ 





2460 

2AA3 

2C 

08 

IF 

IS128 BIT 


SECSIZ 


; IF LSB NOT 80 HEX THEN 256 SRC 

2461 

2AA6 

10 

FI 


BPL 


INCOMP 


; AND THEN INCOMPATIBLE 




LINE 

ADDR 

B1 

B2 

B3 B4 

DISK 

UTILITY 

PROGRAMS (DUP) 

VER 2.9 11/18/80 1 

<5462 





P 




2463 





P 

CHECK 

IF TWO DRIVE OR 

SINGLE DRIVE DUP 

2464 





P 




2465 

2AA8 

AD 

F6 

IE 

SAME 

LDA 

UNNO 


2466 

2AAB 

CD 

FF 

IE 


CMP 

CDES 

i IF BOTH UNITS THE SAME 

2467 

2AAE 

F0 

4B 



BEQ 

SDD 

;SINGLE DRIVE DUP 

2468 

2AB0 

A2 

2A 



LDX 

#. LOW. IBDH 


2469 

2AB2 

A9 

BF 



LDA 

#. LOW. IBDL 


2470 

2 A134 

20 

B5 

31 


USR 

DSPLIN 

; PROMPT TO INSERT BOTH DISKS 

2471 

2AB7 

20 

7E 

30 


USR 

CHRGET 


2472 

2ABA 

CE 

OB 

IF 


DEC 

TWODRV 

/SET TWO DRIVE FLAG 

2473 

2ABD 

30 

46 



BMI 

DODKDP 

/GO DUP DISK 


RR LINE 

ADDR 

B1 

B2 

B3 

B4 

DISK 

UTILITY 

PROGRAMS (DUP) VER 2.9 11/18/80 

2474 







PAGE 


2475 

2ABF 

49 

4E 

53 

45 

IBD 

BYTE 

' INSERT BOTH DISKS, TYPE RETURNS CR 

2476 

2AC3 

52 

54 

20 

42 




2477 

2AC7 

4F 

54 

48 

20 




2478 

2ACB 

44 

49 

53 

4B 




2479 

2ACF 

53 

2C 

20 

54 




2480 

2AD3 

59 

50 

45 

20 




2481 

2AD7 

52 

45 

54 

55 




2482 

2ADB 

52 

4E 

9B 





2483 

2ADE 






HILO 

IBD 

2484 

002A 





+ IBDH 

- 

IBD/256 

2485 

OOBF 





+ IBDL 

= 

(-256)*IBDH+IBD 

2486 

2ADE 

45 

52 

52 

4F 

NCDR 

BYTE 

'ERROR ” DRIVES INCOMPATIBLE. SCR 

2487 

2AE2 

52 

20 

2D 

20 




2488 

2AE6 

44 

52 

49 

56 




2489 

2AEA 

45 

53 

20 

49 




2490 

2AEE 

4E 

43 

4F 

4D 




2491 

2AF2 

50 

41 

54 

49 




2492 

2AF6 

42 

4C 

45 

2E 




2493 

2AFA 

9B 







2494 

2AFB 






HILO 

NCDR 

2495 

002A 





+NCDRH 

= 

NCDR/256 

2496 

OODE 





+NCDRL 

= 

<-256>*NCDRH+NCDR 


2AFB A 9 16 
2AFD A2 2C 
2AFF 20 55 31 
2B02 20 7E 30 

2B05 A9 05 
2B07 8D 06 IF 
2B0A A9 33 
2B0C 8D 07 IF 


USED BY BOTH SINGLE & DOUBLE DRIVE DUP. WILL NOT ASK TO SWAP IF 2 DRIVE 
FLAG (TWODRV) IS SET. 

IF THE TWO DRIVE FLAG IS CLEAR WILL 

FILL FROM SOURCE DISK, SWAP, EMPTY, SWAP, REPEAT. 


SDD LDA 

LDX 
JSR 
JSR 

DODKDP LDA 
STA 
LDA 
STA 


#. LOW. I SDL 
#. LOW. I SDH 
DSPLIN 
CHRGET 

#. LOW. NMDUPL 
STVEC 

#. LOW. NMDUPH 
STVEC+1 


;TELL USER TO INSERT SOURCE 
?FOR INITIAL READ - USED ONLY FOR SINGLE 
i DRIVE DUPLICATE 

;SET BUFFER AT END OF DUP 


BUFFER BOTTOM MOVES FROM NMDUP TO MEMTOP 

SET END OF BUFFER TO MEMTOP MINUS 1 SECTOR IN BYTES. 

WHEN BUFFER BOTTOM IS LESS THAN OR EQUAL TO BUFFER END, AT 
LEAST ONE MORE SECTOR WILL FIT IN MEMORY. 


2B0F AD E5 02 
2B12 38 

2B13 ED 08 IF 
2B16 8D 04 IF 
2B19 AD E6 02 
2B1C ED 09 IF 
2B1F 8D 05 IF 


MEMTOP 

SECSIZ 

T1 

MEMTOP+1 
SECSIZ+1 
Tl + 1 


T1 IS END OF BUFFER 


T1 IS MEMTOP MINUS SECTOR SIZE. 


SEE IF ROOM FOR AT LEAST ONE SECTOR! 




-:rr line 

ADDR 

B 1 

B2 

B3 B4 

DISK 

UTILITY 

PROGRAMS (DUP) 

VER 2. 9 11/18/80 PAGE 

6Z 

2528 

2B22 

AD 

04 

IF 


LDA 

T1 

1 DO DOUBLE PRECISION TEST 


2529 

2B25 

CD 

06 

IF 


CMP 

STVEC 

,TO SEE IF ROOM 


2530 

n2B28 

AD 

05 

IF 


LDA 

Tl + 1 

;IF T1 IS » STVEC THEN ENUF ROOM 


2531 

2B2B 

ED 

07 

IF 


SBC 

STVEC+1 

:• FOR ONE SECTOR 


2532 

2B2E 

BO 

OA 



BCS 

ENUF 

i BRANCH IF (T1)>—C STVEC) 


2533 

2B30 

A9 

06 


NORM 

LDA 

#NRML 



2534 

2B32 

A2 

2C 



LDX 

#NRMH 



2535 

2B34 

20 

B5 

31 


JSR 

DSPLIN 



2536 

LB37 

4C 

B6 

20 


JMP 

MENUSL 



2537 





y 





2538 

7B3A 

20 

BE 

2C 

ENUF 

JSR 

CKMEM 

; SEE IF OK TO USE USER AREA 


2539 

2B3D 

A9 

00 



LDA 

#0 



2540 

2B3F 

8D 

9E 

15 


STA 

OPT 

;SET UP FOR READ HERE FIRST PASS 


2541 

2B42 

20 

26 

2A 


JSR 

RVTOC 

;READ VTOC 


2542 

2B45 

AD 

OA 

03 


LDA 

DSLO 

i COPY INITIAL WRITE POINTERS 


2543 

2B48 

8D 

F9 

IE 


STA 

SWDP 

; TO INITIAL READ POINTERS 


2544 

2B4E 

AD 

OB 

03 


LDA 

DSHI 



2545 

2B4E 

8D 

FA 

IE 


STA 

SWDP+1 



2546 

2B51 

AD 

01 

IF 


LDA 

PTR 



2547 

2B54 

8D 

FB 

IE 


STA 

SWDP+2 



2548 

2B57 

AD 

02 

IF 


LDA 

I PTR 



2549 

2B5A 

8D 

FC 

IE 


STA 

SWDP+3 



2550 

2B5D 

AD 

FE 

IE 


LDA 

CSRC 



2551 

2B60 

8D 

FD 

IE 


STA 

SWDP+4 



2552 

2B63 

4C 

7A 

2B 


JMP 

LRS1 

i SKIP FIRST READ PROMPT 


2553 





1 





2554 





i READ 

FROM SOURCE DISK. TIL BUF 

FULL OR END OF DATA. 


2555 





i 





2556 

2B66 

A9 

00 


DORD 

LDA 

#0 

i FLAG WE ARE READING 


2557 

2B68 

8D 

9E 

15 


STA 

OPT 



2558 

2B6B 

2C 

OB 

IF 


BIT 

TWODRV 

iTEST FOR 2 DRIVES 


2559 

2B6E 

30 

OA 



BMI 

LRS1 

/YES, SKIP THE SWAP 


2560 

2B70 

A9 

16 



LDA 

#. LOW. ISDL 

; INSERT SRC DISK 


2561 

2B72 

A2 

2C 



LDX 

#. LOW. ISDH 



2562 

2B74 

20 

B5 

31 

XBLK 

JSR 

DSPLIN 



2563 

2B77 

20 

7E 

30 


JSR 

CHRGET 



2564 





/ 





2565 





; SWAP 

POINTERS 

TO WHERE WE ARE 



2566 





i 





2567 

2B7A 

20 

D2 

2B 

LRS1 

JSR 

DOSWDP 

l SWAP SECTOR AND BITMAP POINTERS 


2568 





i 





2569 





F LOOP 

READING/WRITING SECTORS 

TO BUFFER AREA 


2570 





* 





2571 

2B7D 

20 

59 

2C 

LRS 

JSR 

AAM 

;ADVANCE ALLOCATION MAP 


2572 

2B80 

30 

21 



BMI 

ASPT 

;IF FREE, ADV SECTR POINTER & TRY 

AG 

2573 

2B82 

2C 

9E 

15 


BIT 

OPT 

/SEE WHAT MODE 


2574 

2B85 

30 

06 



BMI 

DOW 

i BR IF WRITE 


2575 

2B87 

20 

8D 

2C 


JSR 

RSEC1 

;DQ READ 


2576 

2B8A 

4C 

90 

2B 


JMP 

IOD 



2577 

2B8D 

20 

98 

2C 

DOW 

JSR 

DKWRT 

;DO WRITE 


2578 

2B90 

AD 

04 

03 

IOD 

LDA 

DBUFLO 

;ADVANCE BUFFER POINTER 


2579 

2B93 

18 




CLC 




2580 

2B94 

6D 

08 

IF 


ADC 

SECSIZ 

iADD SECTOR SIZE TO BOTTOM OF BUFFER 

2581 

2B97 

8D 

04 

03 


STA 

DBUFLO 

;S0 POINT TO NEXT FREE BLOCK 
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2582 

2B9A 

AD 

05 

03 


LDA 

DBUFHI 


2583 

2B9D 

6D 

09 

IF 


ADC 

SECSIZ+1 


2584 

2BA0 

8D 

05 

03 


STA 

DBUFHI 


2585 

2BA3 

20 

76 

2C 

ASPT 

JSR 

ASP 

; GO ADVANCE SECTOR POINTER 

2586 

2BA6 

FO 

22 



BEQ 

STDD1 

;ALL SECTORS DONE, SWAP TO DEBT DISK 

2587 

2BA8 

AD 

04 

IF 


LDA 

T1 

JSEE IF ROOM FOR ANOTHER 

2588 

2BAB 

CD 

04 

03 


CMP 

DBUFLO 

;SECTOR BELOW MEMTOP 

258? 

2BAE 

AD 

05 

IF 


LDA 

Tl + 1 


2590 

2BB 1 

ED 

05 

03 


SBC 

DBUFHI 


2591 

2BB4 

BO 

C7 



BCS 

LRS 

; BRANCH IF (DBUFK-(Tl) ~ ROOM FOR MORE 

2592 





i 




2593 





; SWAP 

DISKS AND CONTINUE 


2594 





i 




2595 

2BB6 

AD 

9E 

15 

STDD 

LDA 

OPT 


2596 

2BB9 

30 

AB 



BMI 

DORD 

; IF WAS WRITE, GO READ 

2597 

2BBB 

CE 

9E 

15 

STDD2 

DEC 

OPT 

i CHANGE TO WRITE 

2598 

2BBE 

2C 

OB 

IF 


BIT 

TWQDRV 

;ARE 2 DRIVES BEING USED? 

2599 

2BC 1 

30 

B7 



BMI 

LRS1 

i YES, SKIP THE SWAP 

2600 

2BC3 

A9 

35 



LDA 

#. LOW. I DDL 

i INSERT DEST DISK 

2601 

2BC5 

A2 

2C 



LDX 

#. LOW. I DDH 


2602 

2BC7 

4C 

74 

2B 


JMP 

XBLK 

i GO DO WRITE 

2603 

2BCA 

AD 

9E 

15 

STDD1 

LDA 

OPT 

; END OF DATA 

2604 

2BCD 

10 

EC 



BPL 

STDD2 

; IF READ GO WRITE 

2605 

2BCF 

4C 

B6 

20 


JMP 

MENUSL 

; IF WRITE WE ARE DONE 

2606 





t 




2607 





; DOSWDP - EXCHANGE CURRENT AND 

SAVED BITMAP Sc SECTOR POINTERS 

2608 





; ALSO 

INIT BUFFER POINTER 


2609 





} 




2610 

2BD2 

AO 

04 


DOSWDP 

LDY 

#4 


2611 

2BD4 

B9 

FC 

2B 

SWLOP 

LDA 

SWATL, Y 


2612 

2BD7 

85 

1A 



STA 

RAMLO 


2613 

2BD9 

B9 

01 

2C 


LDA 

SWATH/ Y 


2614 

2BDC 

85 

IB 



STA 

RAMLQ+1 

;GET ADDRESS FROM TABLE TO RAMLO 

2615 

2BDE 

A2 

00 



LDX 

#0 


2616 

2BE0 

A1 

1A 



LDA 

<RAMLO, X) 

;GET WHAT'S THERE 

2617 

2BE2 

48 




PHA 



2618 

2BE3 

B9 

F9 

IE 


LDA 

SWDPz Y 


2619 

2BE6 

81 

1A 



STA 

(RAMLO, X) 


2620 

2BE8 

68 




PLA 



2621 

2BE? 

99 

F? 

IE 


STA 

SWDP, Y 


2622 

2BEC 

se 




DEY 



2623 

2BED 

10 

E5 



BPL 

SWLOP 


2624 

2BEF 

AD 

06 

IF 


LDA 

STVEC 


2625 

2BF2 

8D 

04 

03 


STA 

DBUFLO 


2626 

2BF5 

AD 

07 

IF 


LDA 

STVEC+1 


2627 

2BF8 

8D 

05 

03 


STA 

DBUFHI 


2628 

2BFB 

60 




RTS 



2629 





1 




2630 





i 

WHAT A 

MESS 


2631 





i 




2632 

2BFC 





HILO 

DSLO 


2633 

0003 




+DSLOH 

5 = 

DSLO/256 


2634 

000A 




+DSLOL 

=S 

( -256)ttDSLOH+DSLO 

2635 

2BFC 





HILO 

DSHI 
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2636 

0003 

2637 

0003 

2638 

2BFC 

2639 

001F 

2640 

0001 

2641 

2BFC 

2642 

COIF 

2643 

0002 

2644 

^BFC 

2645 

00 IE 

2646 

OOFE 


+DSHIH 

- 

+DSHIL 

HILO 

+PTRH 


+PTRL 

HILO 

+XPTRH 

m 

+IPTRL 

HILO 

+CSRCH 

m 

+CSRCL 

= 


DSHI/256 

(-256>*DSHIH+DSHX 

PTR 

PTR/256 

(-256>*PTRH+PTR 
I PTR 

XPTR/256 

(-256)#IPTRH+IPTR 
CSRC 

CSRC/256 

C -256) -a-CSRCH+CSRC 
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2647 







PAGE 


2648 

2BFC 

0A 

OB 

01 

02 

SWATL 

BYTE 

DSLOLi DSHIL, PTRL, IPTRL, CSRCL 

2649 

2C00 

FE 







2650 

2C01 

03 

03 

IF 

IF 

SWATH 

. BYTE 

DSLQH, DSHIH, PTRH, IPTRH, CSRCH 

2651 

2C05 

IE 







2652 






J 



2653 






J 



2654 

2C06 

4E 

4F 

54 

20 

NRM 

. BYTE 

'NOT ENOUGH RQQM',CR 

2655 

2C0A 

45 

4E 

4F 

55 




2656 

2C0E 

47 

48 

20 

52 




2657 

2C12 

4F 

4F 

4D 

9B 




2658 

2C16 

49 

4E 

53 

45 

ISD 

. BYTE 

'INSERT SOURCE DISK, TYPE RETURN', CR 

2659 

2C 1A 

52 

54 

20 

53 



2660 

2C1E 

4F 

55 

52 

43 




2661 

2C22 

45 

20 

44 

49 




2662 

2C26 

53 

4B 

2C 

54 




2663 

2C2A 

59 

50 

45 

20 




2664 

2C2E 

52 

45 

54 

55 




2665 

2C32 

52 

4E 

9B 





2666 

2C35 

49 

4E 

53 

45 

IDD 

. BYTE 

'INSERT DESTINATION DISK,TYPE RETURN',CR 

2667 

2C39 

52 

54 

20 

44 




2668 

2C3D 

45 

53 

54 

49 




2669 

2C41 

4E 

41 

54 

49 




2670 

2C45 

4F 

4E 

20 

44 




2671 

2C49 

49 

53 

4B 

2C 




2672 

2C4D 

54 

59 

50 

45 




2673 

2C51 

20 

52 

45 

54 




2674 

2C55 

55 

52 

4E 

9B 




2675 

2C59 






HILO 

NRM 

2676 

002C 





+NRMH 

= 

NRM/256 

2677 

0006 





+NRML 


<-256>*NRMH+NRM 

2678 

2C 59 






HILO 

ISD 

2679 

002C 





+ ISDH 

= 

ISD/256 

2680 

0016 





+ ISDL 

=5 

<-256>*ISDH+ISD 

2681 

2C59 






HILO 

IDD 

2682 

002C 





+ IDDH 

= 

IDD/256 

2683 

0035 





+ IDDL 

= 

<-256)*IDDH+IDD 

2684 






, 



2685 






i 



2686 






; AAM 

- ADVANCE ALLOCATION MAP ONE BIT. 

2687 






; RETURN MINUS 

IF FREE. 

2688 






i 



2689 

2C59 

OE 

FE 

IE 


AAM 

ASL 

CSRC ;NEXT BIT OF ALLOC MAP 

2690 

2C5C 

CE 

02 

IF 



DEC 

IPTR 

2691 

2C5F 

DO 

11 




BNE 

CBIT ;IF DONE WITH THIS BYTE 

2692 

2C61 

EE 

01 

IF 



INC 

PTR }GET NEXT ONE 

2693 

2C64 

AE 

01 

IF 



LDX 

PTR 

2694 

2C67 

BD 

FE 

ID 



LDA 

DBUF+$A,X ;VTOC IS DBUF & BITMAP STRTS IN 10TH BYT 

2695 

2C6A 

8D 

FE 

IE 



STA 

CSRC 

2696 

2C6D 

A9 

08 




LDA 

#8 

2697 

2C6F 

8D 

02 

IF 



STA 

I PTR 

2698 

2C72 

AD 

FE 

IE 


CBIT 

LDA 

CSRC iCHECK THE BIT 

2699 

2C75 

60 





RTS 



2700 
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2701 





. 





2702 





# ASP - 

ADVANCE 

SECTOR POINTER IN DCB. 


2703 





; RETURN EG IF 

AT END. 



2704 

2076 

AD 

OA 

03 

ASP 

LDA 

DSLO 

i SEE IF END 


2705 

2079 

09 

DO 



CMP 

#208 



2706 

2C7B 

DO 

07 



BNE 

NXS 



2707 

20 7D 

AD 

OB 

03 


LDA 

DSHI 



2708 

2080 

09 

02 



CMP 

#2 



2709 

2082 

FO 

08 



BEG 

ASPX 

* ALL DONE 


2710 

2084 

EE 

OA 

03 

NXS 

INC 

DSLO 



2711 

2087 

DO 

03 



BNE 

ASPX 



2712 

2089 

EE 

OB 

03 


INC 

DSHI 



2713 

2080 

60 



ASPX 

RTS 




2714 





f 





2715 





i RSEC1 

- READ 

A SECTOR WHOSE 

NUMBER IS IN DCB 


2716 





i 





2717 

2C8D 

AD 

F6 

IE 

RSEC1 

LDA 

UNNO 



2718 

2090 

8D 

01 

03 


STA 

DUN IT 



2719 

2093 

18 




CLC 


;TELL DISK HANDLER DOING A GET 

SECTOR 

2720 

2094 

08 




PHP 


iSAVE FLAG 


2721 

2095 

40 

AO 

20 


JMP 

CLDKH 



2722 





f 





2723 





j DKWRT 

- WRITE 

A SECTOR 



2724 





j 





2725 

2098 

AD 

FF 

IE 

DKWRT 

LDA 

ODES 

;PUT DEST UNIT # 


2726 

2C9B 

8D 

01 

03 


STA 

DUN IT 

i IN DCB 


2727 

2C9E 

38 




SEC 


i TELL DISK HANDLER DOING WRITE 

SECTOR 

2728 

20 9F 

08 




PHP 


; SAVE FLAG 


2729 

2CA0 

A9 

02 


CLDKH 

LDA 

#2 

; SET RETRY COUNT 


2730 

2CA2 

8D 

F7 

IE 


STA 

RCNT 



2731 

2CA5 

A2 

01 


CLD1 

LDX 

#1 

i SET DRIVE TYPE- ASSUME 128 


2732 

2CA7 

20 

08 

IF 


BIT 

SECSIZ 

; TEST FOR 128 


2733 

20 A A 

30 

01 



Blii 

N0T256 

; IF IS BRANCH 


2734 

20 AC 

E8 




INX 


; ELSE SET FOR 256 


2735 

2CAD 

28 



N0T256 

PLP 




2736 

20 AE 

08 




PHP 


;SET ACTION FLAG & SAVE IT FOR 

RETRY 

2737 

2CAF 

20 

72 

07 


JSR 

BSIOR 

; GOTO FMS DISK HANDLER 


2738 

2CB2 

10 

08 



BPL 

DRTS 

; RETURN IF GOOD STATUS 


2739 





r 





2740 

20 B4 

CE 

F7 

IE 


DEC 

RCNT 

/ ELSE SEE IF MORE RETRIES 


2741 

2CB7 

10 

EC 



BPL 

CLD1 

; YES, DO AGAIN 


2742 

2CB9 

40 

F5 

31 


JMP 

CI0ER1 

iCIO ERROR, GO SAY WHICH 


2743 

20 BC 

28 



DRTS 

PLP 


; EVEN OUT STACK 


2744 

2CBD 

60 




RTS 


;RETURN 


2745 





j 





2746 





i 

CKMEM - 

■ ASK IF OK TO 

USE USER AREA 


2747 





f 





2748 

20 BE 

A5 

08 


CKMEM 

LDA 

WARMST 

; IF MEMORY WAS INTACT 


2749 

2000 

FO 

1C 



BEG 

CPTR1 

; QUERY TO BOMB IT 


2750 

2002 

A9 

DF 



LDA 

#. LOW. OKL 



2751 

2004 

A2 

29 



LDX 

#. LOW. OKH 

;PRINT PROMPT 


2752 

2006 

20 

B5 

31 


JSR 

DSPLIN 



2753 

2009 

A9 

02 



LDA 

#. LOW. CMSIL 

;PRINT CAUTION MSG 


2754 

20 OB 

A2 

2A 



LDX 

# LOW. CMSIH 

iY RESPONSE WILL INVALIDATE MEM. SAV 
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2755 

2CCD 

20 

B5 

31 


JSR 

DSPLIN 


2756 

2CD0 

20 

7E 

30 


JSR 

CHRGET 


2757 

2CD3 

C9 

59 



CMP 

# ' Y 

;TEST FOR OK TO BOMB USER AREA 

2758 

2CD5 

DO 

08 



BNE 

DDXT 

)IF SAY NO THEN DON'T DO DUP 

2759 

2C D7 

A9 

00 



LDA 

#0 


2760 

2CD9 

85 

08 



STA 

WARMST 

;TELL CART NO GOOD USER MEMORY 

2761 

2CDB 

8D 

9E 

17 


STA 

MEMFLG 

iTELL LOADER NO GOOD MEM. SAV 

2762 

2CDE 

60 



CPTR1 

RTS 



2763 





i 




2764 

2CDF 

68 



DDXT 

PLA 


;POP RETURN ADDRESS 

2765 

2CE0 

68 




PLA 



2766 

2CE1 

4C 

B6 

20 


JMP 

MENUSL 

; GOTO MENU, DON'T DO DUP 

2767 





, 




2768 





, 




2769 





i 

DRVSTAT 

- SUBROUTINE 

TO DO STATUS ON DISK DRIVE SPECIFtl 

2770 





i 


BY THE NUMBER IN REG. A. 

2771 





i 

RETURNS 

- CARRY SET = 

DEVICE HAS 256 BYTE SECTORS 

2772 





, 


CARRY CLR = 

DEVICE HAS 128 BYTE SECTORS 

2773 





i 




2774 

2CE4 

3D 

01 

03 

DRVSTAT 

STA 

DUN IT 

i STORE UNIT NUMBER IN DCB 

2775 

2CE7 

A9 

53 



LDA 

#STAREG 

jSTORE STATUS COMMAND IN DCB 

2776 

2CE9 

8D 

02 

03 


STA 

DCOMND 


2777 

2CEC 

A9 

02 



LDA 

#2 

*SET RETRY COUNT 

2778 

2CEE 

3D 

F7 

IE 


STA 

RCNT 


2779 

2CF1 

20 

53 

E4 

DOSTAT 

JSR 

DKHND 

; DO STATUS WITH OS HANDLER 

2780 

2CF4 

10 

08 



BPL 

CHKTYP 

, IF GOOD RETURN, DETERMINE TYPE 

2781 





; 




2782 

2CF6 

CE 

F7 

IE 


DEC 

RCNT 

, ELSE SEE IF ANOTHER RETRY 

2783 

2CF9 

10 

F6 



BPL 

DOSTAT 

, YES, DO AGAIN 

2784 

2CFB 

4C 

F5 

31 


JMP 

CI0ER1 

, ELSE ERROR EXIT 

2785 





} 




2786 

2CFE 

18 



CHKTYP 

CLC 


i ASSUME 128 BYTE DEVICE 

2737 

2CFF 

AD 

EA 

02 


LDA 

DVSTAT 

; GET COMMAND STATUS BYTE 

2/88 

2D02 

29 

20 



AND 

#$20 

; MASK FOR DRIVE TYPE BIT- D5 

2739 

2D04 

FO 

01 



BEG 

RETSTAT 

i 128 IF = 0 

2790 

2D06 

38 




SEC 


5256 IF = 1 

2791 

2D07 

60 



RETSTAT 

RTS 




2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 


**** DUPLICATE FILE COMMAND **** 


DUPLICATE FILE FROM ONE DISK TO ANOTHER 
USING ONE DRIVE. FILENAME FOR DUPLICATE FILE IS SAME AS 
SOURCE NAME. USER CAN ENTER ONLY THE SOURCE FILE SPECIFICATION. 

USER HAS OPTION OF USING PROGRAM AREA FOR COPY OR A 250 BYTE 
DATA BUFFER TO GET PROGRAM AREA USER MUST RESPOND WITH 
'Y' AS 1ST CHAR OR THEY WILL GET THE DATA BUFFER. WILL DUPLICATE 
FILE OF ANY SIZE. IF ERROR, PRINTS MSG, CLOSES FILE(S) OPEN AND 
RETURNS TO MENU. TO PREVENT POSSIBLE DAMAGE TO DESTINATION 
DISK, FILE IS OPENED AND CLOSED FOR EACH WRITE. 

MAKES BUFR LEN AN EVEN MULTIPLE OF 125. THIS PREVENTS FRAGMENTATION 
OF THE FILE DUE TO THE APPEND OPEN FUNC. 125 IS USED BECAUSE IT IS THE 
; SIZE OF DATA PORTION IN A SECTOR. IF THIS CHANGES THE VALUE IN THE PGM 
i MUST BE CHANGED, 
r K. B. 5/7/80 
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2809 





J 





2810 

2D08 

4E 

41 

4D 45 

DPFM 

. BYTE 

'NAME OF FILE TO 

MOVE?', CR 

2811 

2 DOC 

20 

4F 

46 20 






2812 

2D 10 

46 

49 

4C 45 






2813 

2D 14 

20 

54 

4F 20 






2814 

2D 18 

4D 

4F 

56 45 






2815 

2D 1C 

3F 

9B 







2816 










2817 

2D1E 

08 

2D 


DUPFIL 

WORD 

DPFM 


DUPLICATE FILE PROMPT 

2810 

2D20 

20 

CF 

30 


JSR 

GETIC1 


GET FILENAME TO DUPLICATE ON SAME DRIVE 

2819 

2D23 

20 

C4 

30 


JSR 

PERX 


DON'T COME BACK IF PARAMETER ERRORS 

2F20 

2D26 

AD 

7C 

ID 


LDA 

PAR 



2821 

2D29 

C9 

44 



CMP 

#'D 


DUPLICATE FILE ONLY FOR DISK DEVICE 

2822 

2D2B 

FO 

03 



BEQ 

ISDISK 



2823 

2D2D 

4C 

74 

25 


JMP 

ODMS 


IF NOT — SAY CANNOT DO & EXIT 

2824 





i 





2825 

2D 30 

20 

41 

2E 

ISDISK 

JSR 

USEPGM 

;ASK USER IF TO USE PROG AREA OR BUFFER 

2826 





J 





2827 





J 

HAVE 

USER INSERT 

SOURCE 

FILE AND HIT <CR> WHEN DONE 

2828 





5 





2829 

2D33 

A2 

2C 



LDX 

#. LOW. I SDH 


ARG: LINE TO BE DISPLAYED ADDR 

2830 

2D35 

A9 

16 



LDA 

#. LOW. ISDL 


IN REG. A Si X 

2831 

2D37 

20 

B5 

31 


JSR 

DSPLIN 


PRINT INSERT SOURCE MSG 

2832 

2D 3 A 

20 

3C 

30 


JSR 

GETLIN 


GOTO SCREEN & WAIT FOR CCR> 

2833 

2D3D 

20 

C4 

30 


JSR 

PERX 


GOTO MENU IF BREAK KEY HIT 

2834 





j 





2835 

2D 40 

20 

D7 

2E 


JSR 

LOOKWC 

j SEE IF FILE SPEC. USES WILDCARDS 

2836 

2D43 

DO 

05 



BNE 

NOWC 


BRANCH IF NO WILD CARDS USED - USE OLD 

2837 

2D45 

A9 

40 



LDA 

#♦40 


SET 'DUPLICATE WILDCARD' MODE 

2838 

2D47 

4C 

96 

23 


JMP 

WCINIT 


OPEN WILDCARD DIRECTORY FILE, ETC. 

2839 





J 





2840 

2D4A 




NOWC 

= 

* 



2841 





; 





2842 





J 

MAKE SURE DEST NOT 

DOS. SYS 

2843 





1 





2844 

2D4A 

A2 

00 



LDX 

#0 


ENTRY-INDEX TO FIRST CHAR OF FILE NAME 

2845 

2D4C 

20 

ED 

2E 


JSR 

TSTDOS 


/WON'T RETURN IF IS DOS. SYS 

2846 





# 





2847 






OPEN 

SOURCE FILE 

- ADDR 

OF FILENAME STRING IN PARAM LIST IS 

2848 





i 

ALREADY ASSIGNED 

TO IOCB # 2 

2849 





J 





2850 

2D4F 

A2 

10 


WCDUPS 

LDX 

#♦10 


; USE IOCB #2 

2851 

2D 51 

A9 

03 



LDA 

#OPEN 


; OPEN COMMAND 

2852 

2D 53 

9D 

42 

03 


STA 

ICCOM, X 



2853 

2D56 

A9 

04 



LDA 

#4 


i READ ONLY 

2854 

2D 58 

9D 

4A 

03 


STA 

ICAX1 j X 



2855 

2D5B 

20 

EE 

31 


JSR 

CIOCL 


; CALL CIO ~ IF ERR PRNT MSG* CLOSE* GOTO 

2856 





) 





2857 





i EOFFLO - SOURCE FILE EOF 

FLAG 

FTRF - FLAG TO SHOW IF 1ST TIME SOURCE 

2858 





, FILE 

WAS READ 



2859 





, 





2860 

2D5E 

A9 

00 



LDA 

#0 



2861 

2D60 

8D 

OA 

IF 


STA 

EOFFLG 


* CLEAR EOF FLAG 

2862 

2D63 

8D 

OB 

IF 


STA 

FTRF 


* CLEAR MEANS FIRST TIME 
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2863 

2864 





; DO 

UNTIL 

(SOURCE EOF FLAG 

(EOFFLG) IS SET) 

2865 





\ SET 

UP I0CB#2 TO DO GET CHAR. ZP LQC BUFADR HAS BUFFER ADDRESS 

2866 





, BUFLEN HAS BUFFER LENGTH 


2867 

2868 

2D66 

A2 

10 


/ 

DQDUP 

LDX 

#*10 

iUSE IOCB #2 

2869 

2D68 

A5 

1A 



LDA 

BUFADR 

i IN LSB/MSB ORDER 

2870 

2D6A 

9D 

44 

03 


STA 

ICBALi X 

;SET BUFFER ADDR IN IOCB #2 

2871 

2D6D 

A5 

IB 



LDA 

3UFADR+1 


2872 

2D6F 

9D 

45 

03 


STA 

ICBAH, X 


2873 

2D72 

AD 

04 

IF 


LDA 

BUFLEN 

;IN LSB, MSB ORDER 

2874 

2D75 

9D 

48 

03 


STA 

ICBLL,X 

;STORE BUFFER LENGTH 

2875 

2D78 

AD 

05 

IF 


LDA 

BUFLEN+1 

; IN IOCB #2 

2876 

2D7B 

9D 

49 

03 


STA 

ICBLH,X 


2877 

2D7E 

A9 

07 



LDA 

#GETCHR 

jCOMMAND TO GET CHAR - IGNORE POL'S (9B) 

2878 

2D80 

9D 

42 

03 


STA 

ICCOM/X 


2879 

2880 

2D83 

20 

56 

E4 


JSR 

CIO 

iCALL CIO 

2881 





■ 

CHECK 

FOR ENDFILE. IF 

YES/ THEN SET FLG. CHECK FOR ERR. IF ERR 

2882 

2883 





1 

THEN 

PRINT MSG/ CLOSE 

FILE, AND RETURN TO MENU. 

2884 

2D86 

10 

OA 



BPL 

INSDES 

> IF GOOD READ WRITE BUFFER 

2885 

2D88 

CO 

88 



CP Y 

#EQF 

iWAS IT EOF? 

2886 

2D8A 

FO 

03 



BEQ 

SETFLG 

t YES, THEN SET FLAG 

2887 

2D8C 

4C 

F5 

31 


JMP 

CI0ER1 

/WAS ERR - PRINT MSG/CLOSE/GOTO MENU 

2888 

2889 

2D8F 

CE 

OA 

IF 

SETFLG 

# 

DEC 

EOFFLG 

; SET ENDFILE FLAG 

2890 





; 

WHEN 

GOOD READ OR EOF GET HERE. ASK USER TO INSERT DESTINATION 

2891 





; 

DISK 

AND ATTEMPT TO 

WRITE TO DESTINATION FILE. 

2892 

2893 

2D92 

A2 

2C 


INSDES 

LDX 

#. LOW. IDDH 

;ARG: ADDRESS OF LINE TO BE PRINTED 

2894 

2D94 

A9 

35 



LDA 

#. LOW. I DDL 

;IN REGS A AND X 

2895 

2D96 

20 

B5 

31 


JSR 

DSPLIN 

i SAY TO SWAP DISKS 

2896 

2D99 

20 

3C 

30 


JSR 

GETLIN 

i WAIT TIL USER HITS <CR> 

2897 

2D9C 

2C 

F5 

IE 


BIT 

PER 

i WAS BREAK KEY HIT? 

2898 

2D9F 

10 

03 



BPL 

DODEST 

/NO, TRY WRITE 

2899 

2900 

2DA1 

4C 

IF 

2E 

i 

JMP 

CLSSRC 

; YES, CLOSE t>. GOTO MENU 

2901 





/ 

CHECK 

IF FIRST TIME SRC WAS READ. IF YES. THEN OPEN FOR OUTPUT 

2902 





1 

ONLY. 

OTHERWISE, OPEN FOR OUTPUT APPEND. 

2903 

2904 

2DA4 

A2 

20 


t 

DODEST 

LDX 

#*20 

; USE IOCB #3 FOR DESTINATION 

2905 

2DA6 

AO 

09 



LDY 

#9 

;ASSUME APPEND 

2906 

2DA8 

AD 

OB 

IF 


LDA 

FTRF 

; IS FLAG CLEAR? 

2907 

2DAB 

DO 

05 



BNE 

OPNDES 

;NO/NOT FIRST TIME - OPEN APPEND 

2908 

2DAD 

AO 

08 



LDY 

#8 

; YES/ THEN OPEN OUT ONLY 

2909 

2910 

2DAF 

EE 

OB 

IF 


INC 

FTRF 

/SET TO SHOW NOT FIRST TIME NEXT TIME 

2911 

2DB2 

9e 



□PNDES 

TYA 


/GET OPEN TYPE CODE 

2912 

2DB3 

9D 

4A 

03 


STA 

ICAX1 / X 

iSET AUX1 BYTE 

2913 

2DB6 

A9 

03 



LDA 

#OPEN 

iOPEN COMMAND 

2914 

2915 

2DB8 

9D 

42 

03 

J 

STA 

ICCOM/ X 


2916 





i 

THE 

FILENAME IS THE 

FIRST FILE IN THE PARAMETER LIST-PAR. 





GRR LINE 

ADDR 

B 1 

B2 

B3 B4 DISK UTILITY 
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2917 




j 




2918 

2DBB 

A9 

7C 


LDA 

#PARL 

;SET BUFR ADDR TO FILE SPEC TO BE OPENED 

2919 

2DBD 

AO 

ID 


LDY 

#PARH 


2920 

2DBF 

2C 

41 

23 

BIT 

WCFLAG 

i IF WLDCARD-WLDCARD BUFR INSTEAD OF PAR 

2<?21 

2DC2 

50 

04 


BVC 

SKIPWC 


2922 




J 




2923 

2DC4 

A9 

64 


LDA 

#. LOW. WCBUF2 


2924 

2DC6 

AO 

23 


LDY 

#. HIGH. WCBUF2 

2925 








2926 

2DC8 

9D 

44 

03 SKIPWC 

STA 

ICBALiX 


2927 

2DCB 

98 



TYA 



2928 

2DCC 

9D 

45 

03 

STA 

ICBAH, X 


2929 

2DCF 

20 

EE 

31 

JSR 

CIOCL 

.CALL CIO, IF ERROR GOTO MENU 

2930 




J 




2931 




i 

CHECK 

IF SOURCE BUFR 

LEN IS NOT EQUAL TO ZERO. IF NOT = ZERO 

2932 




i 

THEN 

WRITE BUFFER TO 

THE DESTINATION FILE. 

2933 




i 




2934 

2DD2 

AO 

10 


LDY 

#$10 

iSOURCE IS AT IOCB #2 

2935 

2DD4 

A2 

20 


LDX 

#$20 

i DEST IS AT IOCB #3 

2936 

2DD6 

A9 

00 


LDA 

#0 

;CHECK LENGTH LOW FOR ZERO 

2937 

2DD8 

D9 

48 

03 

CMP 

ICBLL,Y 

iL0W=0 

2938 

2DDB 

DO 

05 


BNE 

DOWRIT 

,NO THEN WRITE BUFFER 

2939 

2DDD 

D9 

49 

03 

CMP 

ICBLH, Y 

; IS HI=0? 

2940 

2DE0 

FO 

IE 


BEG 

CLSDES 

; YES. DON'T WRITE EMPTY BUFFER 

2941 




1 




2942 

2DE2 

A9 

OB 

DQWRIT 

LDA 

#PUTCHR 

; PUT CHAR COMMAND CODE 

2943 

2DE4 

9D 

42 

03 

STA 

ICCOM, X 

i IGNORE EOLS (9B) 

2944 

2DE7 

A5 

1A 


LDA 

BUFADR 

. GET BUFFER ADDRESS 

2945 

2DE9 

9D 

44 

03 

STA 

ICBAL,X 


2946 

2DEC 

A5 

IB 


LDA 

BUFADR+1 


2947 

2DEE 

9D 

45 

03 

STA 

ICBAH, X 


2948 

2DF1 

B9 

48 

03 

LDA 

ICBLL,Y 

; GET BUFFER LENGTH TO WRITE 

2949 

2DF4 

9D 

48 

03 

STA 

ICBLL, X 

; FROM IOCB OF SOURCE FILE 

2950 

2DF7 

B9 

49 

03 

LDA. 

ICBLH, Y 

, SET BY GET TO ACTUAL BYTE 

2951 

2DFA 

9D 

49 

03 

STA 

ICBLH, X 

/COUNT READ INTO BUFFER 

2952 

2DFD 

20 

EE 

31 

JSR 

CIOCL 

/DO WRITE - IF ERR GOTO MENU 

2953 




j 




2954 




i 

CLOSE DESTINATION FILE 

2955 




> 




2956 

2E00 

A9 

OC 

CLSDES 

LDA 

#CLOSE 

. CLOSE COMMAND CODE 

2957 

2E02 

9D 

42 

03 

STA 

ICCOM,X 

.CALL CIO - IF ERROR GOTO 

2958 

2E05 

20 

EE 

31 

JSR 

CIOCL 

.MENU AFTER PRINT MSG 

2959 




i 




2960 




i 

TEST 

ENDFILE FLAG. 

IF IT IS SET THEN COMPLETED DUPLICATION 

2961 




i 

OTHERWISE, DO LOOP 

BODY AGAIN (READ THEN WRITE). 

2962 




, 




2963 

2E08 

AD 

OA 

IF 

LDA 

EOFFLG 

, IS SOURCE AT ENDFILE? 

2964 

2E0B 

DO 

12 


BNE 

CLSSRC 

;YES, THEN DONE 

2965 




i 




2966 




J 

ASK 

USER TO INSERT 

SOURCE FOR NEXT READ & THEN REPEAT LOOP 

2967 




i 




2968 

2E0D 

A2 

2C 


LDX 

#. LOW. ISDH 

, ARGS: ADDRESS OF LINE TO PRINT IN 

2969 

2E0F 

A9 

16 


LDA 

#. LOW. ISDL 

/REGS A AND X 

2970 

2E11 

20 

B5 

31 

JSR 

DSPLIN 

;SAY TO INSERT SOURCE 




ERR LINE 

AD DR 

B 1 

B2 

B3 B4 
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2971 

2E14 

20 

3C 

30 


JSR 

GETLIN 

iWAIT TIL USER HITS <XR> 

2972 

2E1 7 

2C 

F5 

IE 


BIT 

PER 

i WAS BREAK KEY HIT? 

2973 

2E1A 

30 

03 



BMI 

CLSSRC 

;YES, CLOSE & GOTO MENU 

2974 

2E1C 

4C 

66 

2D 


UMP 

DODUP 

iREPEAT LOOP 

2975 





; 




2976 





1 

##################END 

OF LOOP*****#**##**#***#*# 

2977 





i 




2978 





i 

CLOSE 

SOURCE AND RETURN TO MENU 

2979 





} 




2980 

2E1F 

A2 

10 


CLSSRC 

LDX 

#*10 

iSOURCE AT IOCB #2 

2981 

2E21 

A9 

OC 



LDA 

#CLQSE 

;CLOSE COMMAND CODE 

2982 

2E23 

9D 

42 

03 


STA 

ICCQM, X 


2983 

2E26 

20 

56 

E4 


JSR 

CIO 

JCALL CIO 

2984 





i 




2985 

2E29 

2C 

41 

23 


BIT 

WCFLAG 

;TEST IF 'DUPLICATE WILDCARD' MODE 

2986 

2E2C 

50 

10 



BVC 

DUPFEX 

iBR IF NOT 'DUPLICATE WILDCARD' MODE 

2987 

2E2E 

A2 

2C 



LDX 

#. LOW. ISDH 

; INSERT SOURCE MESSAGE 

2988 

2E30 

A9 

16 



LDA 

#. LOW. ISDL 


2989 

2E32 

20 

B5 

31 


JSR 

DSPLIN 

i NEEDED TO GET NEXT WILDCARD DIR ENTRY 

2990 

2E35 

20 

3C 

30 


JSR 

GETLIN 

;WAIT FOR CR 

2991 

2E38 

20 

C4 

30 


JSR 

PERX 

}IF BREAK-KEY ABORT - EXIT TO MENU 

2992 

2E3B 

4C 

9E 

23 


JMP 

WCOPYL 

;JUMP TO WILDCARD LOOP 

2993 

2E3E 




DUPFEX 

= 1 

# 


2994 





i 




2995 

2E3E 

4C 

B6 

20 


jmp 

MENUSL 

iGO TO THE MENU 



FRR 


LINE ADDR B1 B2 B3 B4 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 


3019 

3020 

3021 

3022 


3023 

2E5A 

A9 

00 


3024 

2E5C 

85 

08 


3025 

2E5E 

8D 

9E 

17 

3026 

2E61 

A9 

05 


3027 

2E63 

85 

1A 


3028 

2E65 

A9 

33 


3029 

2E67 

85 

IB 


3030 

2E69 

AD 

E5 

02 

3031 

2E6C 

38 



3032 

2E6D 

E9 

05 


3033 

2E6F 

8D 

04 

IF 

3034 

2E72 

AD 

E6 

02 

3035 

2E75 

E9 

33 


3036 

2E77 

8D 

05 

IF 


3037 

3038 

3039 

3040 

3041 


3042 

2E7A 

A9 

00 

3043 

2E7C 

8D 

06 

3044 

2E7F 

8D 

07 

3045 




3046 




3047 




3048 

2E82 

A9 

7D 

3049 

2E84 

18 
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ASK USER IF CAN USE PROGRAM AREA. IF SAY YES ( / Y') THEN 
ASSIGN BUFFER ADDRESS AS ALL AVAILABLE MEMORY. OTHERWISE, 
DBUF (250 BYTES) AS THE BUFFER. ASSIGNS BUFFER LENGTH. 

NO PARAMETERS 

RETURNS: BUFADR-BUFFER ADDRESS 
. BUFLEN-BUFFER LENGTH 


USE 


3008 

2E41 

A5 

08 


USEPGM LDA 

WARMST 

CHECK IF PGM AREA ALREADY 

3009 

2E43 

FO 

15 


BEG 

USEDB4 

USED-YES, USE IT AGAIN 

3010 

2E45 

A9 

DF 


LDA 

#. LOW. OKL 

ARGS: IN A AND X ADDR 

301 1 

2E47 

A2 

29 


LDX 

#. LOW. OKH 

OF LINE TO DISPLAY 

3012 

2E49 

20 

B5 

31 

JSR 

D-SPLIN 

ASK TO USE PGM AREA 

3013 

2E4C 

A9 

02 


LDA 

#. LOW. CMSIL 

SAY A Y RESPONSE WILL 

3014 

2E4E 

A2 

2A 


LDX 

#. LOW. CMSIH 

INVALIDATE MEM SAV 

3015 

2E50 

20 

B5 

31 

JSR 

DSPLIN 

PRINT CAUTION 

3016 

2E53 

20 

7E 

30 

JSR 

CHRGET 

GET 1ST CHAR OF 

3017 

2E56 

C9 

59 


CMP 

# ' Y 

USERS RESPONSE 

3018 

2E58 

DO 

6A 


BNE 

USEBUF 

NO, THEN USE DBUFF 


.USE ALL MEMORY AVAILABLE-PROGRAM AREA 
iMEMLO, MEMTOP, BUFADR, BUFLEN ARE IN LSB,MSB FORM 


LDA 

#0 

iCLEAR WARMSTART FLAG 

STA 

WARMST 

iTO SHOW PGM AREA USED 

STA 

MEMFLG 

>SHOW NO USER AREA GOOD-MEM.SAV ALSO 

LDA 

#. LOW. NMDUPL 

iUSE ALL AVAILABLE 

STA 

BUFADR 

;MEMORY-FROM END OF DUP TO MEMTOP 

LDA 

#. LOW. NMDUPH 

iBUFADR HAS BUFFER 

STA 

BUFADR+1 

jADDRESS 

LDA 

MEMTOP 

;GET LENGTH OF 

SEC 


* PGM AREA 

SBC 

#. LOW. NMDUPL 


STA 

BUFLEN 

iLSB, MSB ORDER 

LDA 

MEMTOP+1 


SBC 

#. LOW. NMDUPH 


STA 

BUFLEN+1 


FIND 

THE GREATEST MULTIPLE OF 125 LESS THAN THE PROGRAM AREA 

THEN 

SET BUFR LEN TO 

IT. THIS PREVENTS FRAGMENTATION TO FILE 

WHEN 

APPEND IS USED 

IN DUPFIL. 

LDA 

#0 

iINIT MULTIPLE OF 125 (MLT125) TO ZERO 

STA 

MLT125 


STA 

MLT125+1 



DO UNTIL < MLT125 


BUFLEN) 


FINDGM 


LDA 

CLC 


#125 


iINC THE MULTIPLE OF 125 BY 125 
}TO GET THE NEXT HIGHER MULTIPLE 
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3050 

2E85 

6D 

06 

IF 


ADC 

MLT125 


3051 

2E88 

8D 

06 

IF 


STA 

MLT125 


3052 

2E8B 

A9 

00 



LDA 

#0 


3053 

2E8D 

6D 

07 

IF 


ADC 

MLT125+1 

i MLT125 IS IN LSB,MSB ORDER 

3054 

2E90 

8D 

07 

IF 


STA 

MLT125+1 


3055 





* 




3056 





i 

TEST 

FOR MLT125 > BUFLEN - LQQP TEST 

3057 





; 




3058 

2E93 

AD 

05 

IF 


LDA 

BUFLEN+1 

; IS MSB OF MLT125 > MSB OF BUFLEN? 

3059 

2E96 

CD 

07 

IF 


CMP 

MLT125+1 


3060 

2E99 

90 

OA 



BCC 

GETMLT 

iYES, THEN END LOOP 

3061 

2E9B 

DO 

E5 



BNE 

FINDGM 

iIF MLTCBUFLEN, REPEAT LOOP 

3062 

2E9D 

AD 

04 

IF 


LDA 

BUFLEN 

(ELSE MSB'S ARE =. CHECK THE LSB'S. 

3063 

2EA0 

CD 

06 

IF 


CMP 

MLT125 

;IS LSB MLT125 > LSB BUFLEN? 

3064 

2EA3 

BO 

DD 



BCS 

FINDGM 

iNO, REPEAT LOOP 

3065 





} 



i ELSE END LOOP. 

3066 





r END OF 

LOOP****#*******#*#####*#** 

3067 





i 




3068 





; 

CHECK 

IF MULTIPLE * TO 

125. IF IS, THEN LEAVE BUFLEN AS IS. 

3069 





, 

ISN'T 

THEN SET BUFLEN 

TO THAT NULTIPLE OF 125 MINUS 125. 

3070 





i 




3071 

2EA5 

AD 

07 

IF 

GETMLT 

LDA 

MLT125+1 

;IS MSB NOT = ZERO? 

3072 

2EA8 

DO 

08 



BNE 

REPLAC 

;YES, VALUE IS > 125 

3073 

2EAA 

A9 

7D 



LDA 

#125 

;IS LSB > 125? 

3074 

2EAC 

CD 

06 

IF 


CMP 

MLT125 


3075 

2EAF 

90 

01 



BCC 

REPLAC 

;YES, REPLACE BUFLEN WITH MLT125 

3076 

2EB1 

60 




RTS 


! ELSE LEAVE BUFLEN AS IS 

3077 





I 




3078 

2EB2 

AD 

06 

IF 

REPLAC 

LDA 

MLT125 

.SUBTRACT 125 FROM MLT125 TO GET 

3079 

2EB5 

38 




SEC 


iGREATEST MULTIPLE LESS THAN OR EQUAL 

3080 

2EB6 

E9 

7D 



SBC 

#125 

;TO THE PROGRAM AREA. 

3081 

2EB8 

8D 

04 

IF 


STA 

BUFLEN 

;USE IT AS THE BUFFER LENGTH. 

3082 

2EBB 

AD 

07 

IF 


LDA 

MLT125+1 


3083 

2EBE 

E9 

00 



SBC 

#0 


3084 

2EC0 

8D 

05 

IF 


STA 

BUFLEN+1 


3085 

2EC3 

60 




RTS 


;RETURN 

3086 





i 




3087 





i USE BUFFER DBUF (250 BYTES) INSTEAD OF PROGRAM AREA 

3088 





I 




3089 

2EC4 

A9 

F4 


USEBUF 

LDA 

#. LOW. DBUFL 

JUSE DBUF AS 

3090 

2EC6 

85 

1A 



STA 

BUFADR 

;BUFFER ADDRESS 

3091 

2EC8 

A9 

ID 



LDA 

#. LOW. DBUFH 

;IN LSB,MSB ORDER 

3092 

2ECA 

85 

IB 



STA 

BUFADR+1 


3093 

2ECC 

A9 

FA 



LDA 

#EDBLL 

;STORE DATA 

3094 

2ECE 

8D 

04 

IF 


STA 

BUFLEN 

;BUFFER LENGTH 

3095 

2ED1 

A9 

00 



LDA 

#EDBLH 

;=TQ 256(100HEX) 

3096 

2ED3 

8D 

05 

IF 


STA 

BUFLEN+1 

» IN LSB,MSB ORDER 

3097 

2ED6 

60 




RTS 


;RETURN 





ERR LINE 

AD DR 

B1 

B2 

B3 B4 
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3098 






. PAGE 


3099 





; #### 

CHECK 

FILENAME FOR WILDCARD CHARACTERS **** 

3100 





) 



3101 





l 



3102 





i 

CHECKS 

THE STRING AT PAR, X FOR WLDCARD CHARACTERS <* OR ?). IF 

3103 





i 

THEY ARE FOUND THE ROUTINE SETS THE = FLAG. IF A CCR> IS FOUND 

3104 





i 

RETURNS 

TO THE CALLING ROUTINE WITH THE EQUAL FLAG RESET. 

3105 





i 



3106 

2ED7 

BD 

7C 

ID 

LOQKWC 

LDA 

PAR/ X 

3107 

2EDA 

E8 




I NX 


3108 

2EDB 

C9 

2A 



CMP 

#'* 

3109 

2EDD 

F0 

OD 



BEG 

L00KW2 

3110 

2EDF 

C9 

3F 



CMP 

#'? 

3111 

2EE1 

FO 

09 



BEG 

L00KW2 

3112 

2EE3 

C9 

9B 



CMP 

#CR 

3113 

2EE5 

FO 

04 



BEG 

L00KW1 

3114 

2EE7 

C9 

2C 



CMP 

#'/ /TERMINATE WITH CR OR COMMA 

3115 

2EE9 

DO 

EC 



BNE 

LOOKWC 

3116 





; 



3117 

2EEB 

E8 



L00KW1 

INX 


3118 

2EEC 

60 



L00KW2 

RTS 



RR 


LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 29 11/18/80 


PAGE- 


75 


3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 


3135 

2EED 

E8 


3136 

2EEE 

BD 

7C 

3137 

2EF1 

C9 

3A 

3138 

2EF3 

FO 

01 

3139 

2EF5 

E8 


3140 

2EF6 

E8 


3141 




3142 




3143 




3144 

2EF7 

AO 

00 

3145 




3146 

2EF9 

B9 

CD 

3147 

2EFC 

DD 

7C 

3148 

2EFF 

DO 

10 

3149 

2F01 

C8 


3150 

2F02 

E8 


3151 

2F03 

CO 

07 

3152 

2F05 

DO 

F2 

3153 




3154 




3155 




3156 

2F07 

A9 

12 

3157 

2F09 

A2 

2F 

3158 

2F0B 

20 

B5 

3159 

2F0E 

4C 

B6 

3160 




3161 




3162 




3163 

2F11 

60 


3164 




3165 

2F12 

44 

45 

3166 

2F16 

49 

4E 

3167 

2F1A 

49 

4F 

3168 

2F1E 

43 

41 

3169 

2F22 

20 

42 

3170 

2F26 

44 

4F 

3171 

2F2A 

53 

59 

3172 

2F2E 




ID 


28 

ID 


54 


45 20 


. PAGE 

**** TEST FILE SPEC FOR DOS. SYS **** 


SUBROUTINE - TSTDOS 

CHECKS A FILE SPEC IN THE STORAGE LOC FOR DOS. SYS USED TO 
PREVENT COPYING TO A FILE NAMED DOS. SYS. IF DOS SYS IS OPENED 
OUTPUT FMS WILL WRITE A COPY OF DOS OUT TO THE FILE 

ENTRY - REG X HAS INDEX INTO PAR TO FIRST CHAR OF FILE SPEC 
ASSUMES COMPLETE FILE SPEC. 

EXIT - WILL NOT RETURN IF FILE NAME = DOS. SYS, BUT GOES TO MENU 
FIND END OF DEVICE ID - COLON 


TSTDOS 


GOTCOL 


INX 

LDA 

CMP 

BEG 

INX 

INX 


PAR, X 

#': 

GOTCOL 


NEVER IS FIRST CHAR 
7 GET 2ND CHAR 
;IS IT A COLON? 

;YES, THEN NAME STARTS AT CHAR 3 
> ELSE NAME STARTS AT CHAR 4 
;POINT AT FIRST CHAR OF NAME 


COMPARE FILE NAME IN PAR WITH DOS. SYS 


LDY 

NXTCHAR LDA 
CMP 
BNE 
INY 
INX 
CPY 
BNE 


#0 

DS+3,Y 
PAR, X 
NOTSAM 


#7 

NXTCHAR 


7 INDEX INTO DOS. SYS FILE SPEC 

,* GET NEXT DOS. SYS CHAR 
iTEST IF FILE NAME IS SAME 
;NO, THEN RETURN 

;ELSE TRY NEXT CHAR 
,ARE THERE MORE CHARS TO TRY? 
;YES, DO AGAIN 


FILE NAME EQUALS DOS. SYS - ERROR EXIT 

;PRINT MSG - DEST CAN'T BE DOS. SYS 


LDA 

LDX 

JSR 

JMP 


#. LOW. DCDSL 
#. LOW. DCDSH 
DSPLIN 
MENUSL 


;GOTO MENU 

t 

J NOT EQUAL TO DOS. SYS - RETURN TO CALLER 

i 

NOTSAM RTS 

i 

DCDS .BYTE 'DESTINATION CANT BE DOS. SYS',CR 


HILO 


DCDS 


ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 


PAGE 


3173 002F 

3174 0012 


+DCDSH = DCDS/256 

+DCDSL = (-256)*DC DSH+DC DS 


R LINE 

1*175 

3176 

3177 
31 78 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 


ADDR El B2 B3 B4 

DISK UTILITY 

PROGRAMS (DUP) 

VER 2.9 11/18/80 

PAGE 


. PAGE 





t **** SAVE 

FILE ROUTINE 

**** 



2F2E 

18 

30 


SAVFIL 

WORD 

SFMG 


2F30 

A9 

00 



LDA 

#0 


2P32 

8 D 

AO 

18 


STA 

INITQ +1 


2F35 

8 D 

BE 

18 


STA 

RUNG +1 


2F38 

20 

CF 

30 


JSR 

GETIC 1 


2F3B 

AD 

9E 

15 


LDA 

OPT 


2F3E 

48 




PHA 



2F3F 

AE 

01 

IF 


LDX 

PTR 

i PUT EOL ON FILENAME 

2F42 

A9 

9B 



LDA 

#CR 


2F44 

9D 

7E 

ID 


STA 

PAR-1/X 


2F47 

20 

24 

32 


JSR 

GETNO 

;GET HEX PARAMETER 

2F4A 

eo 

EO 

19 


STA 

LOST 


2F4D 

8 E 

El 

19 


STX 

LDST+1 


2F50 

EG 

32 



CPX 

#. LOW. NDSH 


2F52 

BO 

03 



BCS 

DSLMFG 

;BRANCH IF NOT SAVING DUP AREA 

2F54 

CE 

94 

18 


DEC 

WDR1+1 


2F57 

20 

24 

32 

DSLMFG 

JSR 

GETNO 

;END ADDRESS 

2F5A 

8 D 

E2 

19 


STA 

LDND 


2F5D 

8 E 

E3 

19 


STX 

LDND +1 


2F60 

38 




SEC 



2F61 

ED 

EO 

19 


SBC 

LOST 


2F64 

8 D 

F 8 

2F 


STA 

WDRL +1 


2F67 

8 A 




TXA 



2F68 

ED 

El 

19 


SBC 

LDST+1 


2 F 6 B 

10 

03 



BPL 

ADDOK 

iBR IF ENDING ADDR > THAN STARTING 

2F6D 

4C 

B 6 

20 


JMP 

MENUSL 

;ELSE BACK TO MENU 

2F70 

8 D 

FD 

2F 

AD DDK 

STA 

WDRH +1 


2F73 

CO 

9B 



CPY 

#CR 


2F75 

FO 

29 



BEG 

NRUNAD 

;BRANCH IF NO MORE PARAMS 

2F77 

20 

24 

32 


JSR 

GETNO 

; GET A RUN ADDRESS IF ANY 

2F7A 

8 D 

E2 

02 


STA 

INITAD 


2F7D 

8 E 

E3 

02 


STX 

INITAD*1 


2F80 

GD 

E3 

02 


ORA 

INITAD +1 


2F83 

FO 

03 



BEG 

NINTAD 

i BRANCH IF NO INIT ADDRESS GIVEN 

2F85 

CE 

AO 

18 


DEC 

INITQ +1 

iSET FLAG 

2F88 

CO 

9B 


NINTAD 

CPY 

#CR 


2F8A 

FO 

14 



BEG 

NRUNAD 

i BRANCH IF NO RUN ADDRESS GIVEN 

2F8C 

20 

24 

32 


JSR 

GETNO 

; GET RUN ADDRESS 

2F8F 

20 

C4 

30 


JSR 

PERX 

i CHECK FOR ERRORS 

2F92 

8 D 

EO 

02 


STA 

RUN AD 


2F95 

8 E 

El 

02 


STX 

RUNAD +1 


2F98 

OD 

El 

02 


ORA 

RUNAD +1 


2F9B 

FO 

03 



BEG 

NRUNAD 

; BRANCH IF NO RUN ADDRESS 

2F9D 

CE 

BE 

18 


DEC 

RUNG +1 

;SET FLAG 

2 FA 0 

A9 

00 


NRUNAD 

LDA 

#0 


2FA2 

8 D 

9E 

15 


STA 

OPT 


2FA5 

68 




PLA 


iOPTION CHAR FROM FILENAME 

2FA6 

C9 

41 



CMP 

#'A 

iIF APPEND 

2FA8 

DO 

03 



BNE 

*+5 


2 FAA 

CE 

9E 

15 


DEC 

OPT 

iSET OT-$FF 



ERR 


LINE 

3229 
31--30 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 
58 

3259 

3260 

3261 

3262 

3263 

3264 
13265- 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 
32 77 
32 78 

3279 

3280 
3781 
3282 


AD DR 


2 FAD 
2FAF 
2FD1 
2FB4 
2FB7 
2FB9 
2FBB 
2FBD 
2FBF 
2FC2 


2FC5 
2FC7 
2FC A 
2FCC 
2FCF 
2FD1 
2FD4 
2 FD6 
2FD9 
2FDB 
2FDE 
2FE1 
2FE3 
2FE5 
2FE8 
2FEA 
2FED 
2FEF 
2FF2 


2FF5 
2FF7 
2FF9 
2F FC 
2FFE 
3001 
3004 
3006 
3009 
300C 
30 OF-' 
■3012 
3015 
3018 
301C 
3020 


B1 B2 


B3 B4 


A2 

10 


A9 

03 


9D 

42 

03 

2C 

9E 

15 

30 

04 


A9 

08 


DO 

02 


A9 

09 


9D 

4A 

03 

20 

EE 

31 


A9 

OB 


9D 

42 

03 

A9 

DE 


9D 

44 

03 

A9 

19 


9D 

45 

03 

A9 

06 


9D 

48 

03 

A9 

00 


9D 

49 

03 

2C 

9E 

15 

10 

OF 


A9 

04 


9D 

48 

03 

A9 

EO 


9D 

44 

03 

A9 

19 


9D 

45 

03 

20 

EE 

31 


A2 

10 


A9 

00 


9D 

48 

03 

A9 

00 


9D 

49 

03 

FE 

48 

03 

DO 

03 


FE 

49 

03 

AD 

EO 

19 

9D 

44 

03 

AD 

El 

19 

9D 

45 

03 

4C 

93 

18 

53 

41 

56 

2D 

47 

49 

45 

20 

46 
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; OPEN THE FILE 


i 


LDX 

#410 


LDA 

#OPEN 


STA 

ICCOM,X 


BIT 

OPT 

; IF APPEND 

BMI 

*+6 


LDA 

#8 


BNE 



LDA 

#9 


STA 

ICAX1,X 


JSR 

CIOCL 


» 

i WRITE SAVE 

FILE HEADER 


i 

LDA 

#PUTCHR 


STA 

ICCOM, X 


LDA 

#. LOW. SAVHL 


STA 

ICBAL,X 


LDA 

#. LOW. SAVHH 


STA 

ICBAH, X 


LDA 

#6 


STA 

ICBLL, X 


LDA 

#0 


STA 

ICBLH,X 


BIT 

OPT 


BPL 

WHEAD 

; BRANCH IF NOT APPEND 

LDA 

#4 


STA 

ICBLL, X 


LDA 

#. LOW. LDSTL 


STA 

ICBAL,X 


LDA 

#. LOW. LDSTH 


STA 

ICBAH,X 


WHEAD JSR 

CIOCL 



; WRITE DATA RECORD 


WDR 

LDX 

#410 



WDRL 

LDA 

#0 

!THIS IMMEDIATE VALUE 

MODIFIED 


STA 

ICBLL,X 



WDRH 

LDA 

#0 

iTHIS IMMEDIATE VALUE 

MODIFIED 


STA 

ICBLH,X 




INC 

ICBLL,X 




BNE 

*+5 




INC 

ICBLH,X 




LDA 

LDST 




STA 

ICBAL,X 




LDA 

LDST+1 




STA 

ICBAH, X 



WEX 

JMP 

WDR 1 



SFMG 

. BYTE 

'SAVE-GIVE 

FILE,START,END<, INIT,RUN) 

CR 




ERR LINE ADDR B1 B2 B3 B4 DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 

3283 3024 4C 45 2C 53 

3284 3028 54 41 52 54 

3285 302C 2C 45 4E 44 

3286 3030 28 2C 49 4E 

3287 3034 49 54 2C 52 

3288 3038 55 4E 29 9B 


PAGE 


R LINE 

ADDR 

3289 


3290 


3291 


3292 


3293 

303C 

3294 

303E 

3295 

3040 

3296 

3043 

3297 

3044 

3298 

3046 

3299 

3048 

3300 

304B 

3301 

304E 

3302 

3051 

3303 

3054 

3304 

3057 

3305 


3306 


3307 


3308 


3309 


3310 

3058 

3311 

305A 

3312 

30 5D 

3313 

30 5F 

3314 

3062 

3315 

3064 

3316 

3067 

3317 

3069 

3318 

306C 

3319 

306E 

3320 

3071 

3321 

3073 

3322 

3076 

3323 

3078 

3324 

307A 

3325 

30 7D 

3326 


3327 


3328 


3329 


3330 

307E 

3331 

3080 

3332 

3083 

3333 

3086 

3334 

3089 

3335 

30SC 

3336 

308F' 

3337 

3092 

3338 

3094 

3339 

3097 

3340 

309A 

3341 

309D 

3342 

309F 


B1 B2 B3 B4 


A9 

9E 


A2 

4F 


9D 

A4 

ID 

CA 



10 

FA 


A9 

00 


SD 

01 

IF 

SD 

02 

IF 

8D 

F5 

IE 

20 

58 

30 

20 

BB 

31 

60 




A9 

05 


8D 

42 

03 

A9 

A4 


8D 

44 

03 

A9 

ID 


SD 

45 

03 

A9 

50 


8D 

48 

03 

A9 

00 


8D 

49 

03 

A2 

00 


20 

56 

E4 

CO 

80 


DO 

03 


CE 

F5 

IE 

60 




A9 

00 


SD 

F5 

IE 

20 

58 

30 

AD 

48 

03 

SD 

F7 

IE 

20 

BB 

31 

AD 

F5 

IE 

10 

06 


20 

AA 

19 

4C 

B6 

20 

AD 

F7 

IE 

C9 

03 


30 

OA 
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* -***-* MI SC. 

1 

SUBROUTINES 




f 

GETLIN LDA 

#CR 




LDX 

#79 




STA 

LINE, X 




DEX 





BPL 

*-4 




LDA 

#0 




STA 

PTR 




STA 

IPTR 




STA 

PER 




JSR 

CIOGET 




JSR 

SCROL 




RTS 

i 





; CIOOET - GET 

LINE OF INPUT 

FROM SCREEN EDITOR 



CIOGET LDA 

#GETREC 




STA 

ICCOM 

;SCREEN EDIT IOCB 



LDA 

#LBUFL 




STA 

ICBAL 




LDA 

#LEUFH 




STA 

ICBAH 




LDA 

#80 




STA 

ICBLL 




LDA 

#0 




STA 

ICBLH 




LDX 

#0 




JSR 

CIO 

iREAD RECORD FROM 

SCREEN 

EDITOR 

CPY 

#*S0 

JCHECK FOR BREAK - 

^BORT STATUS 

BNE 

*+5 




DEC 

PER 

;PARAM ERROR FLAG 

IS SET 

IF SO 

RTS 





CHRGET - GET 

1 CHAR FROM EDITOR IN A. 






CHRGET 

LDA 

#0 



STA 

PER 


CHRG1 

JSR 

CIOGET 

;GET A LINE FROM E: 


LDA 

ICBLL 

)SAVE CHAR COUNT 


STA 

RCNT 



JSR 

SCROL 



LDA 

PER 



BPL 

CHRG2 

; IF BREAK... CLOSE AND EXIT 


JSR 

CLOSX h 



JMP 

MENUSL 


CHRG2 

LDA 

RCNT 

;EXPECT 1 OR 2 CHARACTERS 


CMP 

#3 



BMI 

CHRG3 

; IF OK 


SO 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISK 

UTILITY 

PROGRAMS (DUP) 

VER 2. 9 11/lS/SO 

3343 

30 A1 

A9 

AF 



LDA 

#. LOW. OLL 


3344 

30A3 

A2 

30 



LDX 

#. LOW. OLH 


3345 

30A5 

20 

B5 

31 


USR 

DSPLIN 


3346 

30A8 

4C 

83 

30 


UMP 

CHRG1 

; TRY AGAIN 

3347 

30AB 

AD 

A4 

ID 

CHRG3 

LDA 

LINE 

;GET 1ST CHAR 

3348 

30AE 

60 




RTS 




at 


ERR 


LINE 

ADDR 

El 

B2 

B3 B4 


DISK UTILITY 

PROGRAMS (DUP) VER 2.9 11/18/80 PAGE 

82 

3349 







. PAGE 



3350 

30AF 

50 

4C 

45 41 


OL 

. BYTE 

'PLEASE TYPE 1 LETTER',CR 


3351 

3003 

53 

45 

20 54 






3352 

30 B 7 

59 

50 

45 20 






3353 

30EB 

31 

20 

4C 45 






3354 

30 BF 

54 

54 

45 52 






3355 

30 C 3 

9B 








3356 

30C4 






HILO 

OL 


3357 

0030 




+QL.H 

= 

QL/256 


3358 

00AF 




+OLL 

ir 

<-256>*0LH+0L 


3359 






i 




3360 






i FERX 

- EXIT 

IF PARAMETER ERRORS 


3361 






j 




3362 

30C4 

2C 

F5 

IE 


PERX 

BIT 

PER 


3363 

30C7 

30 

01 




BMI 

FERXI 


3364 

30C9 

60 





RTS 



3365 

30 C A 

68 



FERXi 

PLA 



3366 

30CB 

68 





PLA 



3367 

30CC 

4C 

B6 

20 



JMP 

MENUSL 


3368 










3369 






r GET IC 

1 - READ LINE, GET FILENAME, POINT TO IT IN I0CB1 


3370 










3371 

30 CF 

20 

3C 

30 

0ETIC1 

JSR 

GETLINE 


3372 

30D2 

A2 

10 


0ETIC2 

LDX 

#$10 


3373 

30D4 

20 

DD 

31 



JSR 

FIOCB 


3374 

30D7 

4C 

E8 

30 



JMP 

GETFIL 


3375 










3376 










3377 

30 DA 

A9 

08 


GETNAME 

LDA 

#8 ;ENTRY TO GETFIL USED BY RENAME 


3378 

30 DC 

8 D 

03 

IF 



STA 

CTR ;WHICH DOES NOT HAVE A DEVICE ID 


3379 

30DF 

AC 

01 

IF 



LDY 

PTR ; FOR THE SECOND FILE SPEC 


3380 

30E2 

AE 

02 

IF 



LDX 

IFTR 


3381 

30E5 

4C 

41 

31 



JMP 

CFTE 


3382 










3383 







SUBROUTINE - GETFIL 


3384 







REMOVES ONE FILE SPECIFICATION FROM THE INPUT LINE. WILL 

SET i 

3385 







THE SPEC FOR DEFAULTS FOR INCOMPLETE DRIVE ID. DEFAULT DRIVE # 

3386 







IS 1. 



3387 










3388 










3389 






GET FILESFEC 

FROM INPUT LINE 


3390 

30E8 

AC 

01 

IF 

OETFIL 

LDY 

PTR 


3391 

30EB 

AE 

02 

IF 



LDX 

IPTR 


3392 

30EE 

A9 

OB 




LDA 

#1 1 


3393 

30F0 

8 D 

03 

IF 



STA 

CTR 


3394 










3395 





! 

AVOID GETTING 

JUNK ON VERY SHORT PARAMS 


3396 





j 





3397 

30F3 

BD 

A4 

ID 



LDA 

LINE, X 


3398 

30F6 

C9 

2C 




CMP 

#', 


3399 

30F8 

FO 

3B 




BEG 

ADDC 


3400 

30 FA 

C9 

9B 




CMP 

#CR 


3401 

30FC 

FO 

37 




BEG 

ADDC 


3402 

30FE 

BD 

A5 

ID 



LDA 

LINE+1, X 
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ADDR 
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B2 

B3 B4 
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UTILITY 
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3403 

3101 

C9 

2C 



CMP 

#', 


3404 

3103 

FO 

22 



BEG 

GT1 


3405 

3105 

C9 

9E 



CMP 

#CR 


3406 

3107 

FO 

IE 



BEQ 

GT1 


3407 

3109 

A9 

3A 



L.DA 

#': 

iLOOK FOR : IN FILESPEC 

3408 

31 OB 

DD 

A6 

ID 


CMP 

LINE+2;X 

iSEE IF HAVE COMPLETE FILESPEC ALREADY 

3409 

31 OE 

FO 

31 



BEQ 

CFTE 


3410 

3110 

DD 

A5 

ID 


CMP 

LINE+1, X 


3411 

31 13 

DO 

12 



BNE 

GT1 


3412 

3115 

CE 

03 

IF 


DEC 

CTR 


3413 

31 18 

BD 

A4 

ID 


LDA 

LINE,X 


3414 

31 IB 

C9 

41 



CMP 

#'A 


3415 

31 ID 

10 

22 



BPL 

CFTE 

;HAVE X:FILE, COMPLETE FILESPEC 

3416 





; 




3417 





;IF FALLS THRU. IS UNIT:FILE, 

ADD D 

3418 





i 




3419 

31 IF 

A9 

44 


GT2 

LDA 

#'D 


3420 

3121 

99 

7C 

ID 


STA 

PAR, Y 


3421 

3124 

ce 




I NY 



3422 

3125 

10 

1A 



BPL 

CFTE 


3423 

3127 

CE 

03 

IF 

0T1 

DEC 

CTR 


3424 

312A 

CE 

03 

IF 


DEC 

CTR 


3425 

31 2D 

DD 

A4 

ID 


CMP 

LINE, X 

.AN UNLIKELY CASE (.FILE) 

3426 

3130 

FO 

ED 



BEQ 

GT2 

:TREAT FILE AS U.FILE 

3427 

3132 

CE 

03 

IF 


DEC 

CTR 


3428 

3135 

A9 

44 


ADDC 

LDA 

#'D 


3429 

3137 

99 

7C 

ID 


STA 

PAR, Y 


3430 

313A 

C8 




I NY 



3431 

313B 

A9 

3A 



LDA 



3432 

313D 

99 

7C 

ID 


STA 

PAR, Y 


3433 

3140 

C8 




I NY 



3434 

3141 

A9 

00 


CFTE 

LDA 

#0 


3435 

3143 

8D 

9E 

15 


STA 

OPT 


3436 

3146 

BD 

A4 

ID 

CFTE1 

LDA 

LINE, X 


3437 

3149 

99 

7C 

ID 


STA 

PAR, Y 


3438 

314C 

E8 




INX 



3439 

314D 

C8 




INY 



3440 

314E 

C9 

9B 



CMP 

#CR 

iLOOK FOR TERMINATOR 

3441 

3150 

FO 

2C 



BEQ 

EOC 


3442 

3152 

C9 

2C 



CMP 



3443 

3154 

FO 

28 



BEQ 

EOC 


3444 

3156 

C9 

2F 



CMP 

#'/ 


3445 

3158 

FO 

2B 



BEQ 

POPT 


3446 

31 5A 

C9 

2E 



CMP 


iLOOK FOR START OF . EXT 

3447 

31 5C 

DO 

05 



BNE 

CFTE2 


3448 

315E 

A9 

04 



LDA 

#4 

;FOUND, 4 MORE CHARS MAX 

3449 

3160 

8 D 

03 

IF 


STA 

CTR 


3450 

3163 

CE 

03 

IF 

CFTE2 

DEC 

CTR 


3451 

3166 

10 

DE 



BPL 

CFTE1 


3452 





t 




3453 





i GETS 

HERE IF 

TOO MANY CHARS 

IN FILENAME 

3454 





i 




3455 

3168 

A9 

95 



LDA 

#. LOW. NTLL 


3456 

316A 

A2 

31 



LDX 

#. LOW. NTLH 




LINE 

ADDR 

El 

B2 

B3 B4 

DISK 

UTILITY 

34 57 

316C 

20 

B5 

31 


JSR 

3458 

316F 

CE 

F5 

IE 


DEC 

3459 

3172 

BD 

A4 

ID 

STE 

LDA 

3460 

3175 

E8 




I NX 

3461 

3176 

C9 

2C 



CMP 

3462 

3178 

FO 

04 



■ BEG 

3463 

31 7A 

C9 

9B 



CMP 

3464 

317C 

DO 

F4 



BNE 

3465 

317E 

SE 

02 

IF 

EOC 

STX 

3466 

3181 

8 C 

01 

IF 


STY 

3467 

3184 

60 




RTS 

3468 

3185 

BD 

A4 

ID 

POPT 

LDA 

3469 

3188 

8 D 

9E 

15 


STA 

3470 

318B 

E8 




INX 

3471 

31 OC 

BD 

A4 

ID 


LDA 

3472 

318F 

99 

7B 

ID 


STA 

3473 

3192 

ES 




INX 

3474 

3193 

10 

E9 



BPL 

3475 

3195 

4E 

41 

4D 45 

NTL 

BYTE 

3476 

3199 

20 

54 

4F 4F 



3477 

319D 

20 

4C 

4F 4E 



3478 

31 A1 

47 

9B 





DSPLIN 

PER 

LINE,X 


LINE, X 
OPT 

LINE,X 
PAR-1,Y 


:R 2 9 11/18/80 

fNAME TOO LONG 
i SET PARAMETER ERROR FLAG 
7 SKIP TO END 


,CHANGE STORED TERMINATOR TO , OR CR 1 H 


EOC 

/ NAME TOO LONG ', CR 


NTL 

NTL/256 

<-256)#NTLH+NTL 


31 A3 A9 OB 
31A5 BD 42 03 
31A8 A2 00 

31AA 20 56 E4 
31AD CO 80 
31AF DO 03 
31B1 4C B6 20 
31B4 60 


31B5 20 EE 19 

31B8 4C BB 31 


DSPMSG - DISPLAY N BYTES 

BUFFER POINTER AND LENGTH ARE ALREADY IN IOCBO 


DSPMSG LDA 
STA 
LDX 


#PUTCHR 

ICCOM 

#0 

CIO 

#$80 

*+5 

MENUSL 


CALL CIO AND GO TO MENUSL 
IF BREAK KEY ABORT 


; DSPLIN - DISPLAY ONE LINE OF TEXT 
l A=LO,X=HI ADDRESS 

DSPLIN JSR PRNTMSG )USE RESIDENT DUP SUBROUTINE 

UMP SCROL iSCROLL SCREEN BELOW MENU & RETURN 


31BB A9 00 
31 BD AA 
31 BE 9D 49 03 
31C1 A9 OA 
31C3 9D 48 03 
31C6 A9 31 
31C8 9D 45 03 


SCROL - DO SCROLLING OF AREA BELOW MENU 


ICBLH,X 
#10 

ICBLL, X 
#. LOW. ZAPH 
ICBAH, X 
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3511 

31CB 

A9 

D3 


LDA 

#. LOW. ZAPL 

3512 

31CD 

9D 

44 

03 

STA 

ICBAL/X 

3513 

31 DO 

4C 

A3 

31 

JMP 

DSPMSG 


LINE 

ADDR 

B1 

B2 

B3 B4 

3514 





3515 

31D3 

1C 

1C 

1C 1C 

3516 

31D7 

1C 



3517 

31D8 

9C 

ID 

ID ID 

3518 

31DC 

ID 



3519 

31 DD 




3520 

0031 




3521 

00D3 




3522 





3523 





3524 





3525 

31 DD 

A9 

7C 


3526 

31 DF 

18 



3527 

31 EG 

6 D 

01 

IF 

3528 

31E3 

9D 

44 

03 

3529 

31E6 

A9 

ID 


3530 

31ES 

69 

00 


3531 

31 EA 

9D 

45 

03 

3532 

31 ED 

60 



3533 





3534 





3535 





3536 

31 EE 

20 

56 

E4 

3537 

31 Fl 

98 



3538 

31F2 

30 

01 


3539 

31F4 

60 



3540 

31F5 

98 



3541 

31F6 

38 



3542 

31F7 

E9 

64 


3543 

31F9 

A2 

2F 


3544 

31FB 

E8 



3545 

31 PC 

38 



3546 

31FD 

E9 

OA 


3547 

31 FF 

10 

FA 


3548 

3201 

18 



3549 

3202 

69 

3A 


3550 

3204 

8 D 

22 

32 

3551 

3207 

BE 

21 

32 

3552 

320A 

A2 

32 


3553 

320C 

A9 

17 


3554 

320E 

20 

B 5 

31 

3555 

3211 

20 

AA 

19 

3556 

3214 

4C 

B6 

20 

3557 

3217 

45 

52 

52 4F 

3558 

32 IB 

52 

2D 

20 20 

3559 

321F 

20 

31 


3560 

3221 

00 



3561 

-3222 

00 



3562 

3223 

9B 



3563 

3224 




3564 

0032 




3565 

0017 





DISK UTILITY PROGRAMS (DUP) VER 2.9 11/18/80 

. PAGE 

!AP .BYTE CUP,CUP,CUP, CUP, CUP 


BYTE DLL, CDN, CDN, CDN, CDN 

1ILQ ZAP 

= ZAP/256 

- <~256)*ZAPH+ZAP 


+ ZAPH 
+ ZAPL 


PIQCB - POINT IQCE AT PAR(PTR) 


PIQCB LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
RTS 


#PARL 

PTR 

ICBALi X 
#PARH 
#0 

ICBAHiX 


CIQCL - CALL CIO AND PROCESS ANY ERRORS 


CIQCL JSR 
TYA 
BMI 
RTS 

CIQER1 TYA 

CIQER SEC 
SBC 
LDX 

CTNS INX 
SEC 
SBC 
BPL 
CLC 
ADC 
STA 
STX 
LDX 
LDA 

CIEX JSR 

JSR 
JMP 

C IE . BYTE 


. BYTE 
. BYTE 
. BYTE 
HILO 


CALL CIO 


iOK, RETURN 
;ERROR STATUS 


#100 
# ' 0 — 1 


ERROR NUMS ALWAYS ARE 1XX DEC 
CONVERT TENS 


THE EASY (SLOW) WAY 


+C I EH 
+CIEL 


# 10 + '0 

EUN 

ETN 

#. LOW. CIEH 
#. LOW, C I EL 
DSPLIN 
CLQSX 
MENUSL 
'ERROR- 1 


0 

0 

CR 
C IE 

CIE/256 

<-256>*CIEH+CIE 


CONVERT 


CLOSE IQCBS 10, 20 



fT T 


ERR LINE 

ADDR 

B 1 

B2 

B3 

B4 

DISK UTILITY 

PROGRAMS (DUP) VER 2.9 11/18/80 P< 

3568 






> GETNO 

- GET 

HEX NUMERIC PARAMETER FROM LINE(IPTR). 

3569 






j 

RETURN A=LQ f X=HI. PER 

SET MINUS IF ERROR. 

3570 






j 

INC 

IPTR PAST PARAM. 


3571 






j 




3572 

3224 

A9 

04 



GETNO 

LDA 

#4 

i MAX NO DIGITS 

3573 

3226 

8 D 

03 

IF 



STA 

CTR 


3574 

3229 

A9 

00 




LDA 

#0 


3575 

322B 

8 D 

04 

IF 



STA 

T1 


3576 

322E 

8 D 

05 

IF 



STA 

Ti + 1 

i INIT TEMP TO BUILD NUMBER IN 

3577 

3231 

AE 

02 

IF 


GHB 

LDX 

IPTR 


3578 

3234 

BD 

A4 

ID 



LDA 

LINE/X 

/GET CHAR 

3579 

3237 

EE 

02 

IF 



INC 

IPTR 


3580 

323A 

C9 

9B 




CMP 

#CR 

JSEE IF TERMINATOR 

3581 

323C 

F0 

2B 




BEG 

GND 


3582 

323E 

C9 

2C 




CMP 

# '/ 


3583 

3240 

FO 

27 




BEQ 

GND 


3584 

3242 

20 

A5 

32 



JSR 

HEXCON 

; CONVERT ASCII TO NIBBLE 

3585 

3245 

30 

2A 




BMI 

ERRX 

; IF ERROR 

3586 

3247 

AO 

03 




LDY 

#3 

/SHIFT Tl, Ti + 1 BY 4 

3587 

3249 

18 




SHT1 

CLC 



3588 

324A 

2E 

05 

IF 



ROL 

Tl + 1 


3589 

324D 

2E 

04 

IF 



ROL 

T1 


3590 

3250 

88 





DEY 



3591 

3251 

10 

F6 




BPL 

SHT1 


3592 

3253 

OD 

05 

IF 



ORA 

Tl + 1 

; OR IN NEW NIBBLE 

3593 

3256 

8 D 

05 

IF 



STA 

Tl + 1 


3594 

3259 

CE 

03 

IF 



DEC 

CTR 

i COUNT DIGIT 

3595 

325C 

10 

D3 




BPL 

GHB 

/LOOP UNLESS TOO MANY DIGITS 

3596 

325E 

A9 

77 




LDA 

#. LOW. TMDL 


3597 

3260 

A2 

32 




LDX 

#. LOW. TMDH 


3598 

3262 

20 

B5 

31 


ERRX1 

JSR 

DSPLIN 


3599 

3265 

CE 

F5 

IE 



DEC 

PER 


3600 

3268 

60 





RTS 



3601 

3269 

A8 




GND 

TAY 



3602 

326A 

AD 

05 

IF 



LDA 

Tl + 1 


3603 

326D 

AE 

04 

IF 



LDX 

T1 


3604 

3270 

60 





RTS 



3605 

3271 

A9 

87 



ERRX 

LDA 

#. LOW. IHPL 

J INVALID HEX PARAM 

3606 

3273 

A2 

32 




LDX 

#. LOW. IHPH 


3607 

3275 

DO 

EB 




BNE 

ERRX 1 


3608 

3277 

54 

4F 

4F 

20 

TMD 

. BYTE 

'TOO MANY DIGITS 

'/ CR 

3609 

327B 

4D 

41 

4E 

59 





3610 

327F 

20 

44 

49 

47 





3611 

3283 

49 

54 

53 

9B 





3612 

3287 






HILO 

TMD 


3613 

0032 





+TMDH 

= 

TMD/256 


3614 

0077 





+ TMDL 

m 

<-256>*TMDH+TMD 


3615 

3287 

49 

4E 

56 

41 

I HP 

. BYTE 

'INVALID HEXADECIMAL PARAMETER ' /CR 

3616 

328B 

4C 

49 

44 

20 





3617 

328F 

48 

45 

58 

41 





3618 

3293 

44 

45 

43 

49 





3619 

3297 

4D 

41 

4C 

20 





3620 

329B 

50 

41 

52 

41 





3621 

329F 

4D 

45 

54 

45 






B7 
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3622 

32A3 

52 

9B 

3623 

32A5 



3624 

0032 



3625 

0087 



3626 




3627 




3628 




3629 




3630 




3631 

32A5 

38 


3632 

32A6 

E9 

30 

3633 

32 A8 

30 

OF 

3634 

32AA 

C9 

OA 

3635 

32 AC 

30 

OD 

3636 

32 A E 

38 


3637 

32 AF 

E9 

07 

3638 

32B1 

C9 

OA 

3639 

32B3 

30 

04 

3640 

32B5 

C9 

10 

3641 

32B7 

30 

02 

3642 

32B9 

A9 

FF 

3643 

32 BB 

C9 

00 

3644 

32BD 

60 


3645 




3646 




3647 




3648 





HILO IHP 

+IHPH = IHP/256 

+ IHPL * ( “256)# IHP H+1HP 

i 

J 

'• HEXCQN - CONVERT ASCII CHAR IN A TO HEX NIBBLE IN A. RETURN 
5 MINUS CONDITION, A=FF IF ERROR. 

HEXCON SEC 



SBC 

# '0 



BMI 

ERRX2 

;ASCII BELOW 0' 


CMP 

#10 



BMI 

OKX 

;0-9 CONVERTED SO EXIT 


SEC 




SBC 

#'A-'0-10 



CMP 

#10 

.CONVERTED VALUE MUST BE 10 OR MORE 


BMI 

ERRX2 

.BETWEEN '9' AND 'A' 


CMP 

#$10 



BMI 

OKX 

J A-F CONVERTED 

ERRX2 

LDA 

#$FF 


OKX 

CMP 

#0 

iSET STATUS BY VALUE IN A 


RTS 



a 

t 

GETDN - 

GET A DEVICE 

NUMBER FROM LINE(IPTR) 

i 

RETURN 

IT IN A 



3649 

32BE 

2C 

F5 

IE 

GETDN 

BIT 

3650 

32C1 

30 

27 



BMI 

3651 

32C3 

AE 

02 

IF 


LDX 

3652 

32C6 

BD 

A4 

ID 

GETD 

LDA 

3653 

32C9 

E8 




I NX 

3654 

32CA 

C9 

44 



CMP 

3655 

32CC 

FO 

F8 



BEQ 

3656 

32CE 

38 




SEC 

3657 

32CF 

E9 

30 



SBC 

3658 

32D1 

FO 

18 



BEG 

3659 

32 D3 

30 

16 



BMI 

3660 

32D5 

C9 

05 



CMP 

3661 

32D7 

10 

12 



BPL 

3662 

32D9 

48 




PHA 

3663 

32DA 

BD 

A4 

ID 

GDI 

LDA 

3664 

32 DD 

E8 




INX 

3665 

32DE 

C9 

2C 



CMP 

3666 

32E0 

FO 

04 



BEQ 

3667 

32E2 

C9 

9B 



CMP 

3668 

32E4 

DO 

F4 



BNE 

3669 

32E6 

BE 

02 

IF 

GDX 

STX 

3670 

32E9 

68 




PL.A 

3671 

32EA 

60 



GDR 

RTS 

3672 

32EB 

CE 

F5 

IE 

BDS 

DEC 

3673 

32EE 

A9 

F5 



LDA 

3674 

32 FO 

A2 

32 



LDX 

3675 

32F2 

4C 

B 5 

31 


JMP 


PER 

GDR 

IPTR 


#'D 

GETD 

# '0 

BDS 

BOS 

#5 

BDS 

LINE, X 

#', 

GDX 

#CR 

GDI 

IPTR 


PER 

#. LOW. NDSL 
#. LOW. NDSH 
DSPLIN 


; SEE IF PARAM ERROR ALREADY 
i IF SO DON'T BOTHER 


r IF DN 

, GO GET DIGIT 

;CONVERT DIGIT 
/CAN'T BE ZERO 
i IF NOT DIGIT 

I TOO LARGE 


i IF TERMINATOR 

, KEEP LOOKING 
iADVANCE POINTER 


i NEED DEVICE SPEC MSG 


ERR LINE ADDR B1 B2 B3 B4 


DISK UTILITY PROGRAMS <DUP) VER 2.9 11/18/80 


PAGE 89 


3676 

32F5 

4E 

45 

45 

44 

NDS 

BYTE 

'NEED D1 THRU D4'.CR 

3677 

32F9 

20 

44 

31 

20 




3678 

32FD 

54 

48 

52 

55 




3679 

3301 

20 

44 

34 

9B 




3680 

3305 

00 




NMDUP 

. BYTE 

0 

3681 

1 3F9 





LEN 

= 

NMDUP-EDN 

3682 

3306 






HILO 

LEN 

3683 

0013 





+LENH 

- 

LEN/256 

3684 

00F9 





+LENL 


<-256>*LENH+LEN 

3685 

1589 





MLEN 


NMDUP-NDOS 

3686 

3306 






HILO 

MLEN 

3687 

0015 





+MLENH 

- 

MLEN/256 

3688 

0089 





+MLENL 

= 

(“256)*MLENH+MLEN 

3689 

3306 






HILO 

NDS 

3690 

0032 





+NDSH 

SB 

NDS/256 

3691 

OOFS 





+NDSL 

SB 

<-256>*NDSH+NDS 

3692 

3306 






HILO 

NMDUP 

3693 

0033 





+NMDUPH 

= 

NMDUP/256 

3694 

0005 





+NMDUPL 

SB 

<-256)*NMDUPH+NMDUP 

3695 

3306 






. END 



ASSEMBLY ERRORS = 0 
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CROSS REFERENCE 


LABEL 

VALUE 

REFERENCE 

A AM 

2C59 

2571 

“2689 

ADDC 

3135 

3399 

3401 

ADDOK 

2F70 

3203 

-3205 

ADOK 

168B 

295 

298 

AF 

170C 

“383 

388 

AFH 

0017 

147 

-388 

AFL 

OOOC 

145 

-389 

ANWD 

16AE 

“331 


ASP 

2C76 

2585 

-2704 

ASPT 

2BA3 

2572 

-2585 

ASP X 

2C8C 

2709 

2711 

AWD 

16BB 

324 

327 

AWDG 

16FA 

323 

326 

AWDQR 

1704 

370 

-375 

BOS 

32EB 

3658 

3659 

BFENHI 

0035 

»797 

846 

BFENLO 

0034 

“796 

844 

BLF 

294D 

“2309 

2314 

BLFH 

0029 

2305 

-2314 

BLFL 

004D 

2304 

“2315 

BRKKEY 

0011 

»27 

1180 

BRMG 

2768 

2053 

-2066 

BRUN 

274C 

1162 

-2053 

BSIOR 

0772 

-51 

2737 

BUFADR 

001 A 

“119 

1834 



3029 

3090 

BUFLEN 

IF 04 

-1042 

1841 



3062 

3081 

BUFRFL 

0038 

-802 

927 

BUFRHI 

0033 

-795 

839 

BUFRLO 

0032 

-794 

837 

CARTST 

BFFA 

-33 

653 

CBIT 

2C72 

2691 

-2698 

CDES 

1EFF 

-1036 

1798 



2445 

2466 

CDN 

001D 

-57 

1147 



3517 

3517 

CDSK 

26EB 

1940 

-1972 

CDTMF3 

022A 

-53 

723 

CDTMV3 

021C 

-52 

719 

CFTE 

3141 

3381 

3409 

CFTE1 

3146 

-3436 

3451 

CFTE2 

3163 

3447 

-3450 

CHKDQN 

1A0E 

857 

-869 

CHKERR 

008F 

-818 

932 

CHKSNT 

003B 

-799 

849 

CHKSUM 

0031 

-798 

854 
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